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SOME PROPULSION SYSTEM NOISE DATA HANDLING CONVENTIONS 
AND COMPUTER PROGRAMS USED AT THE 
LEWIS RESEARCH CENTER 
by Francis J. Montegani 
Lewis Research Center 

SUMMARY 

Methods of handling one -third -octave band noise data originating from the outdoor 
full-scale fan noise facility and the ei^ine acoustic facility at the Lewis Research Center 
are presented. Procedures for standardizing, retrievii^, extrapolating, and reporting 
these data are explained. Computer programs are given which are used to accomplish 
these and other noise data analysis tasks. This information is useful as background for 
interpretation of data from these facilities appearing in NASA reports and can aid data 
ex chaise by promoting standardization. 


INTRODUCTION 

The last several years have seen a rapid rise in the level of research relating to the 
noise of aircraft propulsion systems. Various companies, universities, and government 
agencies have been contributing to an increasing body of technical data. A significant 
volume amot^ these data is comprised of the results of one -third -octave band analyses 
of the noise signatures of propulsion systems or components either from full-scale hard- 
ware or from models. Thorough analyses of these data are essential to the development 
of an understanding of the mechanisms of noise generation and, at the very least, to the 
development of noise prediction methods which are important to the proper evolution of 
quiet propulsion systems. Researchers using the full-scale fan and the engine acoustic 
facilities at the Lewis Research Center are among those generating and manipulating 
large volumes of one -third -octave band noise data. Several years ago, the generation of 
such quantities of data was anticipated, and data handling practices were established to 
facilitate the manipulation and analyses of these data at the user level. These practices 
center around a collection of computer programs which are used to process the data and 



a philosophy of data standardization and storage. Extensive use of these methods has 
demonstrated their worth. Interest shown by others outside of NASA has indicated that 
these practices may be generally useful, particularly with regard to standardization and 
facilitation of more direct data exchange especially in computer -compatible form. In 
addition, considerable data from the full-scale fan facility and the engine acoustic facility 
are being published which are handled by the methods discussed herein. Typical of such 
publications is reference 1. 

This report therefore sets forth the practices that are followed at the Lewis 
Research Center with regard to standardizii^, retrieving, extrapolating, and reporting 
noise data from these facilities. The adjustments made to the data for standardization 
purposes and other practices are explained, and a collection of computer programs is 
given. It is hoped that these practices, which have proven useful at Lewis over the past 
several years, will be of use to others engaged in propulsion system noise research. 


DATA ACQUISITION AND DOCUMENTATION 

This section includes information on the manner in which collections of data are 
identified and manipulated. To assist in presenting this information, a block diagram is 
presented in figure 1. This diagram gives an overview of the major elements which are 
involved in the data handling system. It is pertinent to much of the discussion which 
follows. 


Data Standardization 

Measured array . - The kind of data under consideration in the context of this report 
are the results of one-third-octave band spectral analyses of the far -field radiated noise 
from axisymmetric sources. In general, measurements are made about the source at 
equal angle increments. Irrespective of the manner of testing, and whether one run is 
made or the data from a few runs are averaged, the net result is an array of data com- 
prised of sound pressure levels in one -third -octave bands for a number of angles. This 
array is referred to herein as the ’’Measured Array” and is the starting point for all 
further discussion. Effects of instrumentation frequency response are presumed to be 
removed. 

A Measured Array is identified with an operating point of the source and consists of 
an NFXNM matrix of sound pressure levels, where NF is the number of frequency 
bands and NM is the number of microphones or angles. The usual range of frequencies 
is from 50 to 20 000 hertz. Microphones commonly are employed in 10° increments 
over most of a 180° arc. 
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Site effects . - The Measured Array, whether obtained indoors or out, in general 
possesses measurement anomalies which are attributable to the site and also to the am- 
bient air conditions. Site -related anomalies such as ground plane reflections are the 
subject of continuing interest. A discussion of them exceeds the scope of this report. 

For full-scale fan and engine facilities, data are not adjusted routinely for site effects, 
but their inclusion is always implied, and it is intended that they be given consideration 
as the use of the data dictates. 

Excess atmospheric attenuation . - Data are filed for use essentially as obtained ex- 
cept for standardization for atmospheric effects. Ambient air, of course, is known to 
cause excess sound attenuation (over and above inverse square law attenuation) which is 
a function of frequency, temperature, and humidity. Data to evaluate this effect are con- 
tained in reference 2. 

Reference 2 was created in a framework of jet noise. And in addition to the air at- 
tenuation data contained therein, which are essentially continuous functions of frequency, 
guidelines are presented for applying those data to one -third -octave band spectra which 
are discontinuous. The guidelines Specify the use of the band center frequency for de- 
termining the air attenuation for one -third -octave bands to 4000 hertz and for using the 
band lower limiting frequency above 4000 hertz. This procedure is biased for jet noise, 
which has a characteristic fall-off at high frequency. The theoretically correct attenua- 
tion which should be used must be the result of an integration which accounts for the 
combination of spectral and attenuation variations over a frequency band. When both 
these characteristics are relatively flat, the use of the attenuation at the band center 
frequency is appropriate. But when large changes occur in either characteristic over a 
frequency band, the band center frequency is not an adequate parameter. For jet noise, 
use of the band lower limiting frequency is satisfactory; but this is not true in general. 
The manner of determining atmospheric correction which is discussed in- the next sec- 
tion uses the data of reference 2, but does so by an integration process over each fre- 
quency band. This integration cannot be done precisely with knowledge only of the one- 
third-octave band spectrum, but the spectrum shape is approximated conceptually by 
assuming a straight-line connection between sound pressure levels in adjacent frequency 
bands on a spectral plot with a logarithmic frequency scale. 

Referred array. - The only adjustments which the Measured Array undergoes prior 
to use at the working level are removal of the effect of atmospheric absorption for 
the conditions that prevailed at the test site and adjustment to a standard radius for any 
microphones not on that standard radius for the test. The atmospheric attenuation for 
the test ambient temperature and relative humidity for each one -third-octave band spec- 
trum is calculated as noted in the previous section. These results are added to the 
measured data for the appropriate propagation distance. And inverse square adjust- 
ments are made where necessary (fig. 1). The results are sound pressure levels that 
would exist at the microphones on a constant radius if the atmosphere were completely 
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nonattenuating. Therefore, these results are never to be expected in reality. It is from 
these data, however, that source acoustic power and directivity properties must be cal- 
culated. The array so adjusted is termed the "Referred Array, ” implying that it pos- 
sesses acoustic properties that refer back to the source and are uninfluenced by the 
propagation properties of the medium except for inverse square attenuation. 

It follows that a Referred Array may be extrapolated to any distance by using the in- 
verse square law while preservir^ its intrinsic acoustic power and directivity properties. 
Conversely, when acoustic power and directivity properties of a source are known, a 
Referred Array can be constructed for any distance from the source (fig. 1), and by in- 
corporating the effects of atmospheric absorption, far-field sound pressure levels may 
be constructed. 


Working Data 

From the Referred Array, the essential properties of the source acoustic emission 
are calculated. These properties consist of overall power level, normalized power 
spectrum, and directivity index for each frequency band. These data are useful directly 
in the characterization of the source acoustic emission and in understanding noise gener- 
ating mechanisms. Further, they are independent of the ordinal measurement dis- 
tances. 

It is these data, retained on punched cards, that constitute the heart of the retrieval 
system. The data in this form are called "Working Data. " 

These noise data so decomposed into fundamental emission properties can contribute 
to understanding of noise generating mechanisms through the development of improved 
prediction techniques, for which they are suited particularly well. Each of the three 
basic elements - power level, normalized spectrum, and directivity index - can be ex- 
amined separately and independently. Power level is a single variable which, in general, 
can be expected to correlate simply with size, thrust, or mechanical power. Quite in- 
dependently, normalized power spectrum (which embodies only the shape and frequency 
scale of the spectral emission) may be expected to correlate with such things as mechan- 
ical design and characteristic speed. And finally, directivity index may be isolated and . 
separately investigated insofar as it pertains to questions of theoretical acoustic propa- 
gation, duct terminations, flow refraction, and so forth. The extent of understanding 
any one of these emission properties is not dependent necessarily on the understanding 
of any other. • 

This general independence of the emission properties is also particularly useful to 
meet short-term needs for noise predictions. State-of-the-art noise prediction methods 
rely heavily on an empirical data base. Working Data facilitate such predictions by per- 
mitting selective use of the appropriate emission properties from a variety of sources. 
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Although Working Data, at a glance, do not consist of familiar sound pressure 
levels, this is no obstacle to users desirous of data in that form. With a computer- 
oriented system such as this, it is a simple task to assemble the Working Data into a 
referred sound pressure level array. This array in turn can be extrapolated for any far- 
field conditions (fig. 1). 

For the foregoing reasons, all noise data are decomposed into the source fundamen- 
tal emission properties, punched into cards, and filed for use in this form at the working 
level. Appendix A contains a sample listing of Working Data, with complete explanation 
of the format. The retention of data in this form, in conjunction with a family of com- 
puter programs which are given herein, facilitates rapid dissemination and efficient 
utilization of the data. The manner in which Working Data are computed from the 
Referred Array is discussed in the next sections. 

Acoustic power . - A general sound source emits acoustic energy radially to the far- 
field and nonuniformly with direction. The acoustic power emitted by the source can be 
obtained by integrating the far -field sound intensity over an enclosing surface. It is here 
presumed that the source and its associated sound field are axisymmetric so that the in- 
tensity field is a function of only two coordinates, radial distance r from the source and 
azimuth angle 6 from the source axis. For far -field noise radiation, discounting ex- 
cess atmospheric attenuation, the sound intensity varies inversely as the square of the 
distance from the source so that the functional dependence on r is known. Further, the 
sound intensity I is related to the rms acoustic pressure P, which is the usual mea- 
sured quantity, according to 



pc 


( 1 ) 


where pc is the characteristic impedance of the propagating medium. Under such con- 
ditions, the rms sound pressure may be determined at a constant radius R, from which 
the acoustic power W is obtained according to 


where 




P^(0) dA 


dA = 2nR^ d0 


is the elemental annulus area on an enclosing sphere. 


( 2 ) 


( 3 ) 
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In practice, a function P (0) is not usually available, but rather, discrete values 

2 

pf (i = 0, 1, . . . , n) are known from measurements corresponding to values of 0^, 
Under these conditions, equation (2) must be approximated as a finite sum 



( 4 ) 


2 

where the AAj are contiguous finite incremental areas on which the corresponding Pj 
are presumed constant. 

If the 0. are taken to be equally spaced by an angle increment A 0, which there- 
fore becomes also the arc width of any elemental area AA^, and if the 0^ are written 
as iA0, the incremental areas can be expressed as 

AA. = 2ttR^ sin^— ^ tan ^ i A0= 0, tt (5) 

AAj = 4 !tR^ sin sin(i A0) 0 < i A0 < tt (6) 


The geometry of the arrangement is shown in figure 2. When the azimuth angle 
i A0 corresponds with a polar area on the sphere, equation (5) applies; otherwise equa- 
tion (6) applies. 

Combining equations (4) to (6) results in 



where the subscripts 0 and n denote the polar areas. 

Equation (7) is basically that used for acoustic power calculation as discussed here- 
in. However, as written, it applies specifically to radiation in the absence of a ground 
plane since a summation is taken with fully circular annuli. Most practical propulsion 
system noise measurements are taken in an environment with a reflecting ground plane, 
and the problems it presents must be considered. 

In actual fact, the directly radiated instantaneous sound pressure and that reflected 
from the ground plane sum algebraically at the microphone. The resultant effects 
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depend on the geonnetry of the problem, the frequency of the radiation, the phase shifts 
and attenuations in the reflection process, and the bandwidth of the analysis technique, 
among other things. For one -third-octave band analysis, there usually result band- 
dominant signal reinforcement and cancellation effects in the low-frequency end of the 
spectrum which are h^hly dependent on the test arrangement. However, for any ar- 
rangement, many signal reinforcements and cancellations occur in any given one -third- 
octave band at the high-frequency end of the spectrum which, for hard reflecting sur- 
faces, result in a theoretical doubling of intensity there. Since Lewis test sites use hard 
pavement reflecting surfaces for purposes of maintaining surface constancy, the doubling 
of intensity at high frequencies is taken to be the prevailing phenomenon. The acoustic 
power calculation therefore proceeds on the assumption that the acoustic intensities de- 
termined to exist in the presence of the ground plane are double what they would be in its 
absence. Thus, the intensities are halved for all frequency bands and summed over the 
entire sphere according to equation (7). No attempts are made to correct the data for 
ground interference effects at low frequencies. 

The use of Working Data offers a convenient means of transmitting data to other 
users. It must be cautioned, however, that if the Referred Array is to be precisely re- 
constructed, the exact power calculation method which was used to generate the Working 
Data must be available and inverted; otherwise differences will result. The computer 
subroutine to compute acoustic power as given by equation (7) and the preceding discus- 
sion is called POWER and is given in appendix B. Where sound pressure level data are 
not available (e.g. , near the source axis, where jet flow would impinge on the micro- 
phones), the associated areas ai^ excluded from the summation process of the power 
calculation. 

Directivity index. - Directivity index is a normalizing way of characterizing the di- 
rectional property of far -field acoustic emission. It is defined as the difference, in 
decibels, between the existing sound pressure level at a point and the sound pressure 
level that would exist at the same point from a simple source emitting the same acoustic 
power. Directivity index is a function of direction only; and for an axisymmetric source, 
therefore, it is a function of azimuth ar^le 9 . For discrete values of 0^ it is defined by 

Dig = SPLg_ - SPL^y (8) 

where SPLg denotes the existing sound pressure levels and SPL^y represents the 

simple -source sound pressure level. The' simple-source sound pressure level can be 
shown to be exactly the area-weighted average sound pressure level of the existing 
SPLg . It is computed according to 


7 




( 9 ) 


where the AA. are given by equations (5) and (6). 

A subroutine AVSLR for computing the area -weighted sound pressure level is given 
in appendix B. As in, the acoustic power calculation, where no data exist for aisles at 
or near the axis, such angles are omitted from the summation process. 


Extrapolation 

Often, for practical purposes, the detailed properties of the source radiation such as 
directivity index are not needed, but rather the far -field sound pressure levels that re- 
sult when the data are extrapolated to various distances are necessary. Usually, data of 
this kind are reported in the literature. To generate such data, it is only necessary to 
assemble a Referred Array from the Working Data and extrapolate it to the desired dis- 
tances by using the inverse square law and excess atmospheric attenuation for the con- 
ditions desired, usually standard day (fig. 1). Other effects such as ground reflections 
or extra ground attenuation are given consideration by some investigators in extrapola- 
tion calculations. However, as in the case of measurement anomalies, other extrapola- 
tion phenomena are the subject of continuing research and exceed the scope of the discus- 
sion here. These phenomena are neglected in ordinary data extrapolations for reporting 
purposes or for data retention at the working level. Such a practice avoids the need for 
qualifying the data. Further, it permits any user to quickly deduce from the data the re- 
ferred arrays which accurately reflect the original data which were measured and which 
he may modify to suit his needs considering test site or extrapolation anomalies. 
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COMPUTER PROGRAMS 


Working Data Generation 

The key to the efficient retrieval and use of noise data at the working level lies in 
maintaining a punched card file of Working Data sets and a family of programs and sub- 
routines for manipulating those data. There exists, of course, archival storage of the 
raw measured data. But utilization of these data directly requires extensive computer 
interaction and program handling, particularly since the data to be so retrieved and 
processed consist of repeat runs which must be averaged, corrected for measurement 
instrumentation response when necessary, and adjusted to standard-day conditions. The 
use of Working Data, which is one level removed from the archival data, permits rapid 
data access by persons not necessarily skilled in computer usage. 

The effort avoided by the routine use of Working Data in place of archival data is re- 
placed by the one-time use of a computer program which generates the Working Data and 
which also generates other useful data listings. This program is called WODAG (for 
Working Data Generation), and an outline of the calculations it performs and the listings 
it generates are discussed next. WODAG is a subroutine whose principal input is a 
Measured Array. A main program which must provide suitable Measured Arrays and 
call the subroutine WODAG is the responsibility of the reader. The complete codes of 
the subroutine WODAG and of the subroutines which it calls are given in appendix B. 

Listings. - A sample listing of the printed output generated by WODAG is presented 
in table I. Each page of output is somewhat self-explanatory, but they are reviewed 
briefly here. A summary of the pages by title is as follows: 

(1) Measured Array 

(2) Test -day excess atmosjiieric attenuation 

(3) Referred Array 

(4) Acoustic power computations 

(5) Normalized power spectrum (graph) 

(6) Directivity index 

(7) Atmospheric attenuation 

(8) Standard-day data excess atmospheric attenuation 

(9) Standard-day data 

(10 and following) Sideline extrapolated data 

The Measured Array has been discussed. It is identifiable with a particular oper- 
ating condition of the source and represents the actual measured data (or an average of 
data) from the test site with instrumentation frequency response characteristics re- 
moved. Variable microphone radii arespermitted and appear in the listing. Atmospheric 
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conditions for the test are also listed. All test data as printed are adjusted to a constant 
radius for review purposes by using inverse square law only. For all subsequent calcu- 
lations the proper atmospheric absorptions and distances are accurately accounted for. 

The test -day excess atmospheric attenuation table gives the actual adjustments, 
based on test temperature, relative humidity, and actual measurement distances, used 
to generate the Referred Array. 

The Referred Array is tabulated for a selected radius and, in addition, overall 
levels at each angle are listed. No perceived noise levels are presented since the re- 
ferred data represent a condition that cannot be observed. 

Results of acoustic power calculations which are listed include overall acoustic 
power, acoustic power spectrum, and normalized power spectrum. The normalized 
spectrum is obtained by subtracting the maximum band power level from the power spec- 
trum. In addition, the simple -source sound pressure levels are listed. These are re- 
ferred sound pressure levels created by a nondirectional source emitting the same 
acoustic power as the real source. Simple -source sound pressure levels (average sound 
pressure levels given by eq. (9)) are used to calculate directivity index according to 
equation (8). Directivity index is listed in a separate table for the sound pressure levels 
in each frequency band and for the overall levels. 

Tables of standard-day excess atmospheric attenuation are given, the first of which 
is the attenuation per thousand feet of propagation distance. This table is computed from 
the Referred Array as discussed in the section Excess atmospheric attenuation and is 
used for all subsequent extrapolations. A second atmospheric attenuation table is given 
which lists the exact adjustments that were made to the referred array to generate the 
standard -day array for the same radius. The atmospheric adjustments vary from angle 
to angle because the spectral shapes are accounted for as previously discussed. 

Subsequent tables provide data extrapolated to selected sidelines. The first of these 
sidelines is always at the same distance as the radius used for the standard-day data. 

Punched cards . - In addition to the foregoing printed output, WODAG also punches 
data into cards in the Working Data format as discussed previously. These cards are 
intended for routine use at the user working level in conjunction with a family of pro- 
grams and subroutines which are discussed next. 


General Programs and Subroutines 

A principal reason for the use of Working Data is to permit convenient access to 
data in all its detail. Since the card data format is standardized and contains control 
information, one set may be read into computer storage with a simple call to a sub- 
routine. Similar calls to other subroutines will generate Referred Arrays, do extrapo- 
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lations, generate perceived noise levels, and so forth. This modular approach to pro- 
gramming for purposes of handling the data frees the user -programmer from concern 
over routine data handling tasks. The use of other main programs permits nonprogram- 
mers also to conveniently access, extrapolate, and analyze data starting with Working 
Data (fig. 1). A number of programs used for these various purposes are discussed in 
this section. 

Source codes written in FORTRAN IV for all the programs which are discussed in 
this report and other utility subroutines necessary to support them are given in appen- 
dix B alphabetically by name. All program listings contain information which makes 
them self-explanatory. Many of them have a general use to those engaged in noise work. 
Others, described as ’’utility" routines, are used solely to perform very specific and 
mundane calling program tasks. 

Following is an alphabetical summary of all the programs in appendix B with de- 
scriptions of their functions; 


Program name 


Description 


ANGLE 

APNDB 

ASMBL 

ATMAT 

I 

AVliSR 


BASPAT 


(Utility) 

(Utility) 


Assembles one set of Working Data already in storage into a 
Referred Array. 

Com|putes excess atmospheric attenuation in decibels for any temper- 
ature, relative humidity, frequency, and distance. Uses empirical 
curve -fits of data contained in reference 2. 

1 ’ , f / 

Computes simple -source sound pressure level (area -we%h ted aver- 
age sound pressure level) from directional data on an arc. Results 
used for directivity index calculations. 


Computes excess atmospheric attenuation for all bands of a 
fractional octave band spectrum considering spectrum shape. Also 
extrapolates spectrum to a new distance, accounting for inverse 
square and atmospheric attenuation. 


DADIFF Used for thorough comparison of noise characteristics of two sources. 

Computes the differences between two sets of data. Differences in- 
clude acoustic power (including front/rear power split arbitrarily 
divided at 90° to the source axis). Referred Arrays, and perceived 
noise levels and tone -corrected perceived noise levels for standard- 
day data extrapolated to selected sidelines. 

• DBSUM (UtUity) 


11 



Program name 

Description 

FARDTA 

Extrapolates a Referred Array to any far -field radius or sideline, 
accounting for inverse square and excess atmospheric attenuation. 

GRAPH 

(Utility) 

LIST 

Reads and assembles sets of Working Data and prepares printed out- 
put of the basic data and standard-day arc extrapolations including 
optional extrapolations to selected sideline distances. (Output iden- 
tical with that of WODAG commencing with Referred Array. ) 

OASPL 

(Utility) 

PNDB 

Computes perceived noise level in PNdB in accordance with refer- 
ence 3. 

PNLT 

Computes tone-corrected perceived noise level (PNLT) for a one- 
third-octave band sound spectrum in accordance with reference 4. 
Also computes perceived noise level. 

POWER 

Computes total acoustic power by incremental area summation for a 
set of angles and referred sound pressure levels on an arc. Per- 
fectly reflective gound plane assumed. 

SIDLAT 

(Utility) 

TABLE 

Prepares a compact one-page table of data in a format suitable for 
reporting purposes. The output includes standard-day extrapolated j 
data on an arc, total acoustic power, power spectrum, simple-source 
sound pressure levels (which, with nominal band atmospheric attenua- 
tion, permit quick evaluation of directivity index), and optional side- 
line perceived noise levels. 

TBLOP 

- (Utility) 

TITLE 

(Utility) 

TITLE 2 

(Utility) 

WDATA 

Reads one set of Working Data from cards into storage. 

WODAG 

As discussed herein, standardizes measured data, prepares data 
listings, and punches Working Data. 


Sample output from WODAG, TABLE, and DADIFF are given herein tables I, n, 
and in, respectively. 
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CONCLUDING REMARKS 


Methods of data handling and computer programs have been presented which have 
proven useful for a wide variety of tasks with data from the full-scale fan and engine 
acoustic test facilities at the Lewis Research Center. These methods center on the use 
of immediately accessible data punched into cards as standard-format Working Data 
which include power level, normalized power spectrum, and directivity index. Working 
Data are useful in understanding mechanisms of generation, developing prediction 
methods, and executing empirical predictions. Working Data and the associated pro- 
grams also simplify the problems of user -programmers and nonprogrammers in the 
tasks of accessing and manipulating the data and increase the productivity and quality of 
data analyses. It is hoped that these advantages, in addition to the information pre- 
sented herein, will be of use to others and may lead ultimately to improvements in in- 
formation exchange. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, October 12, 1973, 

501-24. 



APPENDIX A 


WORKING DATA CARD FORMAT 


Working Data are normalized acoustic data arranged in a standard format and used 
for card input for a variety of data analysis programs. A single set of data is complete 
and self-contained and represents the acoustic emission properties for one operating 
condition of a sound source. 

The data are arranged in five blocks. Block 1 consists always of four cards of 
identifying information. This information is not manipulated in any way but is read 
alphanumerically. Any or all of the four cards may be blank, and all 80 card columns 
may be used. 

Block 2 consists of a single card providing control data and identification of the 
particular operating conditions for this data set. The data, location, and format on the 
block 2 card are as follows: 


Card column 

1 

5 

13 

21 

24 

... 27 

Variable 

NCONF 

RPM 

PCS 

NF 

‘ NM 

NB 

FORTRAN format 

14 

F8. 1 

F8. 1 

13 

13 

13 ■ 


NCONF 

RPM 

PCS 

NF 

NM 

NB 


configuration number 
speed, rpm 

percent speed .■ 

number of fractional -octave band filters employed, up to 27 
number of equally spaced angles for the data array, up to 19 
1/NB -octave frequency bands 


Obviously, where NCONF, RPM, and PCS as defined are inappropriate for the sound 
source, other operating variables may be used. 

Block 3 consists of one, two, or three cards, depending on the value of NF. The 
first card is arranged in the following way; 


Card column 

1 

7 

13 

19 

67 

Variable name 

PWL 

SUMN 

PSM(l) 

PSM(2) 

PSM(IO) 

FORTRAN format 

F6. 1 

F6. 1 

F6. 1 

F6. 1 

F6. 1 


14 


PWL 


-1 “i 

total acoustic power level, dB referenced to 10 W 

SUMN antilogarithmic sum in decibels of the normalized power spectrum 

PSM(I) normalized power spectrum, the power spectrum from which has been sub- 
tracted the maximum band level 

Cards 2 and 3 of block 3, when they exist, are arranged as follows: 


Card column 

1 

13 

19 


67 

Variable 

(Blank) 

• PSM(ll) 

PSM(12) 


PSM(20) 

FORTRAN format 

12x 

F6.1 

F6. 1 


F6. 1 

Card column 

1 

13 

19 

. . . 

49 

Variable 

(Blank) 

PSM(21) 

PSM(22) 


PSM(27) 

FORTRAN format 

12x 

F6. 1 

F6. 1 

. . . 

F6. 1 


The index of PSM(I) terminates with the value of NF. 

Block 4 consists of at least one card having the increment angle DT followed by the 
actual microphone angles AI(J), continuing on to the first column of a second card if 
necessary. The format is 12F6. 1/8F6. 1. Not countii^ the increment angle, the number 
of angles agrees with the value of NM. 

Block 5 cards contain the directivity index DI(1, J) for each frequency band denoted 
by both a band number I and the band center frequency NFIL(I). The subscript J de- 
notes angle. Block 5 consists of NF sets of one or two cards each. The card formats 
for the set are 


Card column . 

1 

7 

13 

19 


67 

Variable name 

I 

NFIL(I) 

DI(1, 1) 

DI(I, 2) 


DI(1, 10) 

FORTRAN format 

16 

16 

F6. 1 

F6. 1 


F6. 1 

Card column 

1 

13 


61 

• . . 


Variable name 

(Blank) 

DI(I, 11) 


DI(I, 19) 



FORTRAN format 

12x 

F6. 1 


F6. 1 
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The index J of DI(I, J) terminates with the value of NM. 

A listing of a typical set of working data is given in table IV. The maximum num 
ber of cards in a set is 64, 
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APPENDIX B 


COMPUTER PROGRAMS 


SUBKUUriMt ANGLE (AI,NM) 


SUBROUTINE ANGLE (AI.NM) 

C /ANGLE - ANGLE OUTPUT/ 

0 ](:«<!*«*!**4c**:(!*«<i*«!#**««***i***** 


c <• ♦ 

C « UTILITY routine TO OUTPUT ANGLE ARRAY. f 

C * • <= 

C ♦ Al ANGLES * 

C * NM NUMBER OT ANGLES . * 

C * 


0 

UIMENSION Al (19) 

WRITE (6,1) (All l),I=l,NM) 

1 FORMAT ( lOX, DHANGLb, 19F6.0) 
WRITE (6,2) 

2 FORMAT (/) 

RETURN 

END 


1 

2 
3 
A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 - 


/f 

1 


SUBROUTINE APNDD (A,NB,NM,PL) 

/APNUB - ARRAY PND8/ 

* ♦ 


* 


♦ 


UTILITY ROUTINE TO COMPUTE PNDB FOR ALL ANGLES OF A DATA ARRAY. ♦ 


A DATA ARRAY * 

NB 1/NB-OCTAVE FREQUENCY BANOS ♦ 

NM NUMBER OF ANGLES ♦ 

PL PERCEIVED NOISE LEVELS, ALL ANGLES ‘ ♦ 

♦ 

CALLS PNDB ♦ 


DIMENSION A(27,19) ,PL( 19) 
DO 1 J=1,NM 

CALL PNDB (NB,A(1, J),0R,0) 

PL(J)=DB 

RETURN 

END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
20- 
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oooooooooo 


c 

c 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 

2 

3 


4 


SURROUriNE ASM8L ( Rf SL ) 

/ASM8L - assemble DATA/ 

* « 
ASSRM^LtS ONE SET GF WORKING DATA FROM CUMMUN BLOCK /WO/ INTO « 
« A REFERKCD ARRAY. * 


4 « 

+ R RADIUS FOR REFERRED ARRAY' ^ 

SL ' REFERRED ARRAY * 




« 


DIMENSION SL(27t 19) 

COMMON /WD/A(20t4) , NCONF , RPM » PCS , NF ♦ NM , Nb , PWL , SUMN , PSM< 27) ,OT, 
I Al (Is) ) ,NFIL(27 ) ,OI( 27 , 19 ) 




* 

❖ 

4c 

4t 

❖ 


« 

VARIABLES IN COMMON BLOCK /WO/ « 

A(20,4) FOUR CAROS OF ID (WORD LENGTH 4) « 

NCONF CONFIGURATION NUMBER * 

RPM SPEED IN RPM ♦ 

PCS PERCENT SPEEC * « 

NF NUMBER OF FREQUENCY BANOS ♦ 

NM NUMBER OF ANGLES * 

m L/NB-GCTAVr. BANDS ♦ 

PWL OVERALL ACOUSTIC POWER LEVEL « 

SUMN DECIBEL SUM OF NORMALIZED POWER SPECTRUM « 

PSM(27) NORMALIZED POWER SPECTRUM ♦ 

OT ANGLE INCREMENT ♦ 

AU 19) ANGLES * 

NFILI27) BAND CENTER FREQUENCIES * 

01(27,19) DIRECTIVITY INDEX ♦ 

♦ 


F = 3. 1415927/180.:) 

RHO=0. 0023769 
0=1116.3975 

CONST = 2.0*59.1410 5 3<^1.0E-15 

SPHERE=4.0«3.14159/7*R«*2 

NFT = 1 

NLT=NM 

SUM = 0.0 

IF (AI ( U.GT.O.O) GO TO 1 

SUM=SUM+1.0 

NFT = 2 

IF (AI(NM).LT. 180.0) GO TO 2 

SUM=SUM+1.0 

NLT=NM-1 

SUM=TAN( DT/4.0«F )/2.0*SUM 
DO 3 J=NFT,NLT 

SUM = SUM+SIN( AI ( JM'F) 

FAC = CONST/ (RH0«C)’f^SPHERE*SIN(DT/2.0«F )«SUM 
DELTA=13 j.O+lO .0*AL0G10( FAC) 

PPSUM = PWL-SUMN-DEL TA 
DC 4 I=l,NF 
PSUM=PPSUM+PSM ( I ) 

DO 4 J=i,NM 

SL( I ,J )=PSUM+DI ( 1 , J) 

RETURN 

END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 . 

49 ' 

50 

52 

53 

54 

55 

56 

57 

58 

59 
60- 
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SURRUUTIMc ATMAT ( T , RH , 0 I ST , FK G« , A T T ) 

C /ATMAT ■- ATMCSPHFRIt AT T FNUAT I UIJ/ 


c <•• <= 

C «= CCMPUrES EXCESS ATMOSPHERIC ATTENUATION IN OECIBELS FOR GIVEN <> 
C TEMPERATURE, RELATIVE HUMIOITY, OISTANCE, AND FREQUENCY. * 
C ^ USES EMPIRICAL CURVE-FITS OF DATA CONTAINED IN SOCIETY OF « 
C <= AUTOMOTIVE ENGINEERS AEROSPACE RECOMMENDED PRACTICE NO. E66, * 
C « AUGUST, 196A. ^ 
C « * 
C =*• T TEMPERATURE (DEGREES FAHRENHEIT) 

C <= RH RELATIVE HUMIDITY * 
C <= DIST DISTANCE (FEET) * 
C <= FREQ FREQUENCY (HFRTZ) * 
C * ATT ATTENUATION (DECIBELS) * 
C « * 


DIMENSION A (22) 

DATA A/0.a70,0.750t0.652t0. 5TDf 0.5 05, 0.452, 0-^06»0. 369, 0.335, 

1 0.308 ,0.286,0.268 ,0 • 2 53 , U . 240 , 0 . 2 31 , 0 . 2 25 , 0 . 220 , 0 . 2 1 5, 0. 2 10, 

2 0.208,0.202,0.200/ 

AC= (0. l*( FK£Q/1::C0.0 )««2.05)/( 1 . 65 1- . 00 103=«^T ) **2 .05 
AMM= ( 10.0« ( FREQ/IOOO.G )♦*! .003 ) / 10 . ( 0 . 52* . 00504« I T + SQRT ( 256.0- ( 
ll0.0-T/5.0)««2) )) 

HA = 0.2 5*RH/10.0««{ 1 . 49 3- . 0 1 6 38=fr T- . 02<^SQRT ( 1 28 . 2- ( 1 0 . u-T / 5 . CO ) ♦♦Z ) ) 
HMM=lu.0^«(0.4973*AL0010l FRCO )-l. 4894) 

IF (HH.GT.0.25 ) GQ TO 1 
AA = l. 2’^HH 
GO TO 8 

1 IF IHH.GT.0.60 ) go to 2 
AA=1.543«HH-.086 

GO TO 8 

2 IF (HH.GT.0.95) GO TO 3 

AA = 0.«4+0.16^S INI 3.14l59/2.G<=IHH-0.6) /0.35) 

GO TO 8 

3 IF (HH.GT. 1.25 ) GO TO 4 
AA=0.37+0.13*COS( 3.14159/2.0«(HH-0.95)/0.3) 

GO TO 8 

4 IF (HH.GF.6.5) GO TO 7 

HTEST=1.25 

00 5 1=2,22 

HTBST=HTEST+0.25 

IF (HH.LE.HTEST) go to 6 

5 CONTINUfc 

6 AA = A( I ) + ( (HTEST-HH )/0. 25)«( A( I-l)-A( I ) ) 

GO TO 8 

7 AA=0.2 

8 CONTINUE 

ATT=( AMh*AA+AC)«(OIST/ 1000.0 ) 


1 

2 

3 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


RETUKN 51 

END 52- 
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1 


2 


3- 


SUBRUUTlNfc AVSLR { SL , A I , U T ): - * 

/AVSLR - AVERAi'ic SL UN AN ARC/ 


COMPUlbS SI MPLE-SOURCh SOUNU PRESSURE LEVEL ( AKE A-WE I GHIED 
AVERAGE SOUND PRESSURE LEVEL) FROM 0 I REC F 1 ON Ab D A T A ON . AN ARC 
RESULTS USED FOR DIRECTIVITY INDEX CALCULATION, 


SL 

AI 

DT 

NM 

SLR 


RtFERRED DATA Qfsl AN ARC 
CORRESPONDING ANGLES • 

ANGLE INCREMENT 

NUMBER OF ANGLES 

AVERAGE SOUND PRESSURE LEVEL 


dimension SLll9),Am9) 

F = 3. l‘V15927/180.0 
NFT = 1 

NLT = NM : - ■ • . 

SUM =0.0 . - 

SUMO=^.0 

IF (Aid ) .GT.O . J ) GO TO I 
SUM=SUM+10.0**(5U l>/lu.3) 

SUMD=SOMD+l.O 
NFT = ?. 

IF ( AI (NM).LT. 180.0) GO TO 2 
'SUM = SUM+iO.O**( SL( NM)/10.0) 

SUMD=SUMD+1.0 
NL.T = NM-1 

SUM=rAN(DT/4.0*F)/2.0«SUM 
SUMD = TAN( DT/^.O^F ) /2.0*SUMD 
DO 3 J=NFT,NLT 

SUM=SUM+10.0**(SL( J)/10.0)*SIN(AI( J )*F) 

SUMD=SUMD+SIN( AI ( J )*F) 

SLR =1C.C*AL0G10( SUM/ SUMO) 

RETURN 

END 



1 


2 

♦ ♦ 

. 3 


A 


5 


6 


7 


a 


9 

♦ 

10 


11 

* 

12 


13 

: ^ 

14 

♦ 

15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37- 


20 


c 

c 

c * 

c ^ 

c ♦ 

c * 

c 
c 

c « 

c 

c « 

c ^ 

c ^ 

c ^ 

c * 

c « 

c 

c ^ 

c ♦ 

C 4^ 

c ♦ 

c « 


1 


SUBROUTINE BA5P/\T < A , RT , NF , NB , T , RH t TF A , R , AT A » 
/OASPAT - BAND SPECTRUM ATTENUATION/ 


COMPUTES FRACT ICNAL-OCTAVE BAND EXCESS ATMOSPHERIC ATTENUATION « 
CONSIDERING SPECTRUM SHAPE. EXTRAPOLATES SPECTRUM TO NEW * 

DISTANCE ACCOUNTING FOR INVERSE SQUARE AND EXCESS ATMOSPHERIC . * 
■ ATTENUATION. * 

X! 

A REFERRED SPECTRUM ♦ 

RT CORRESPONDING RADIUS,. . * 

NF NUMBER OF FREQUENCY BANDS . . * 

NB 1/NB-OCTAVE FREQUENCY BANDS * 

T TEMPERATURE (DEGREES FAHRENHEIT) .♦ 

RH RELATIVE HUMIDITY. * 

TFA ATTENUATION IN DECIBELS PER THOUSAND FEET * 

R RADIUS FOR ATTENUATED SPECTRUM; • * 

ATA ATTENUATED SPECTRUM AT R . * 

(INVERSE SQUARE. AND ATMOSPHERIC ATTENUATION) ♦ 

* 

CALLS ATMAT * 

♦ 


DIMENSION A (27 ) ,TFA( 27 ) , ATA( 27 ) 

REAL M(27,2) 

NLS=NF-1 

DO I 1=1, NLS 

M( I ,2)=A( I+l )-A( I ) 

M(I+1,1)=M(I,2) 

M(l,l)=M(l,2) 

M(NF,2 )=M(NF,1 ) 

NS=3 • . 

S=NS 

B=NB 

BI = B*2.0«FLOAT (NS ) 

F1.= 1.D . . • 

IF (NB.EQ.l) F1=10.0«*1.8 
IF (NB.EQ.3) Fl=10,0*«1.7 
DO 3 1=1, NF - ^ 

FC=10*0««(0.3/B«FL0AT( I-in«Fl 
CALL ATMAT ( T , RH , 1000 . 0, FC, AC ) 

SL=1.0 

SLA=lO.O«=0'(-AC/lO.O) 

DO 2 K=1,NS 

XL=-K 

XR=K 

EL=M(i ,1)/2.0«XL/S 
ER=M( I ,2 )/2.0*XR/S 

SL=SL+10.0**(EL/10.0)+10.D>^*(ER/10,0) " , 

FL=10.0«*(0. 3/BI<^XL)«FC 


1 

2 

3 

A 

3 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
39 . 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


FR = 10.0»«(0^3/Bl«=XR)«FC • 51 

CALL ATMAT ( T , RH , 1000 .0 , FL , AL ) 52 

CALL ATMAT ( T , RH , 1 .00 . 0, FR , AR ) ^ 53 

2 SLA=SLA+10.0*«( (EL-AL)/10.0)+10.0^*( (ER-AR)/10.0) 54 

TFA( I )=10.0*ALOG10(SL)-10.0<^ALOG10(SLA) 55 

3 ATA( I )=A( I )-TFA( I )«R/1000.0-20.C*ALOG10(R/RT) . ‘ 56 

RETURN 57 

END 58- 
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n o O' ^ 


C MAIN PRiJGKAM DADIFF 

C /DADIFF - DATA DIFFERENCF/ 


c « ^ 

c « COMPUTES DIFFERENCES BETWEEN TWO SETS OF DATA, INCLUDING « 

C <•■ ACOUSTIC POWER, REFERRED ARRAY, AND EXTRAPOLATED DATA. ♦ 

C * . ♦ 

C * CALLS ASMBL, ATMAT, 3ASPAT, D8SUM, PNDB, PNLT, « 

C POWER, TITLE2, WDATA ♦ 


COMMON A( 20,4, 2) ,AI( 1 9 , 2 ) , NF I L ( 27 , 2 I , NCONF ( 2 ) , RPMI 2 ) , PC S ( 2 J , 

1 NB(2) ,NF( 2) ,NMI2) ,DT( 2) 

COMMON /WD/AAI 20 , 4 ) , NCON , KP , PC , NNF , NNM , NN8 , PW , SUMN , PS ( 27 ) , DTT , 
lAAI ( 19) ,NF I I 27 ) ,UI I ( 27, 19) 

DIMENSION DI(27,19,2),TSL(27,19,2),TBL(27,19,2) 

DIMENSION PSM(27,2),AF{19,2),ARI19,2),F119,2»,R(19,2) ,TW127,2), 

1 TPWL(27,2) ,FPSM(27,2) ,RPSM(27,2),DIF(27,19) 

dimension SUM! 19,2), FW( 27,2), RW( 27, 2) 

dimension PWL<2) ,S0M(2 ),WF(27) ,W(27),WR(27) ,PWF(2) ,PWR(2) , 

1 OELTF (27) ,UELTR(2 7) ,DIFF(29 ) 

DIMENSION PNL( 19,2),DPNL( 19 ) , S ( 5 ) , TFA I 27 ) , AT A ( 27 , 1 9 , 2 ) ,PNT( 19,2) , 
1DPNT(19) 

LOGICAL FTEST,ATEST,SPLIT(2) 

THREE= 10. DIALOG 101 2.0) 

2- T=59.0 

RH=70.0 

write (6,1) 

r, FORMAT (IHl) 

e ; 

READ (5,2) (S(I),I=1,5) 

2 ' FORMAT (5F6.0) 


c <' * 

c ^ INPUT DATA REQUIRED * 
C : * ♦ 
c * ONE CARO WITH UP TO FIVE SIDELINE DISTANCES, * 
C « OR A BLANK CARD FOR NO SIDELINE EXTRAPOLATIONS. ♦ 
C ^ 


DO 3 1=1,5 

IF (S( I ).LE.O.O) GO TO 4 
3 CONTINUE 

NS = 5 
GO TO 5 
NS=I-1 
CONTINUE 

CONTINUE - . 

READ, ASSEMBLE TWO SETS OF DATA 

c ■ 

DO 10 K=l,2 . 

C V 

CALL WDATA 


c « * 
c * INPUT DATA REQUIRED 

C * > 
C ^ ONE UR MORE PAIR UF SETS OF WORKING DATA. * 
C DIFFERENCES TAKEN USING SET TWO MINUS SET ONE. ♦ 
C ^ j ♦ 




1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


22 



7 


DC 7 J = 1,4 ^>3 

DO 7 1=1,20 . 6^ 

A(I ,J,K)=AA(I, J) .65 

NCCNFt K)=NCGN 66 

RPM(K)=RP .67 

PCS(K)=PC 68 

NF(K)=NNF 69 

NM(K)=NNM. 

NB(K)=NN8 

PWL(K)=PW "^2 

DT(K)=OTT 73 

, . DO 8 J=1,NNM 74 

8 AI(J,K)=AAI(J) 75 

DO 9 1=1, NNF 76 

PSM( I,K)=PS(I) 77 

NFIL( I ,K)=NFI ( I ) 78 

DO 9 J=1,NNM 79 

9 DI ( I ,J,K)=DII( I ,J) 80 

CALL ASM8L ( 100 . 0 , TS L ( 1 , 1 , K )) 81 

10 CONTINUE 82 

FTEST=.TRUE. 83 

ATEST=.TRUE. 84 

SPLIT(1)=. FALSE. 85 

SPLIT(2)=. FALSE. 86 

DO 22 K=l,2 87 

NMM=NM(K) 88 

DO 11 J=l,NMM 89 

IF (AI ( J,K) .EO.90.0) GO TO 12 90 

11 CONTINUE 91 

GO TO 13 92 

12 SPLIT(K)=.TRUE. 93 

13 CONTINUE 94 

JS=J 95 

NFF=NF(K) 96 

DO 14 1=1, NFF 97 

DO 14 J=l,NMM ,98 

14 TBL ( I , J,K)=TSL ( I , J ,K) 99 

DO 15 1=1, NFF 100 

15 TSLI I,JS,K)=TSL( I,JS,K)-THREE 101 

DO 16 J=1,JS 102 

16 AF( J,K)=AI (J,K ) 103 

DO 17 J=JS ,NMM 104- 

I=J-JS+1 105 

17 AR{ I ,K1=A1 ( J,K ) 106 

NMF = JS 107 , 

NHR=NMM-JS+1 108 

DO 20 1=1, NFF ' 109 

DO 18 J=1,JS 110 

18 F(J,K)=TSL(I,J,K) 111 

DO 19 J=JS,NMM 112 

JJ=J-JS+1 113 

19 R( JJ,K)=TSL( I, J,K) 11^ 

CALL POWER (F( 1 ,K) ,100.0, AF( 1,K ),NMF,DT(K), 59. 0,29. 92., FPSMI 1,K) ,FW 115 

in,K)) 116 

CALL POWER (R( 1,K) ,100.0, AR( 1,K),NMR,DT(K) ,59. 0,29. 92, RPSMI 1,K) ,RW 117 
1 ( 1 ,K) ) 118 

TW( I,K)=FW( I,K)+RW(I,K) 119 

TPWLI I ,K) =130.0+ 10. 0*AL0G10( TWI 1,K) ) 120 

20 CONTINUE 121 

WF(K)=0.0 122 

W(K)=U.O 123 

WR(K)=0.u 124 
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I 


DO 21 I=1,NFF 
WF(K)=WF(K)+FW(1,K> 

W(K)=W<K)+TW( I ,K) 

21 WR(K)=WR(K)+RW( I,K) 

PWF(K) =130.0+10. 0*AL0G10(WF(K)> 
PWL(K)=130.0+10.0*ALOG10(W(K) ) 

PWR (K)=130.0+10.0*AL0G10(WR(K> ) 

22 CONTINUE 

DPWL = PWL ( 2 )-PWL( 1 ) 

NFF=M1N0(NF( 1) ,NF(2) ) 

DO 23 1=1, NFF 

IF (NFIL( I,n.NE.NFIL( 1,21 ) FTEST= .FALSE. 

23 CONTINUE 
C 

C SHIFT SPECTRUM ARRAYS TO GET FREQUENCY CORRESPONDENCE. 

C 

IF (ND(1).EQ.NB(2).AN0..N0T.FTEST) GO TO 2A 
GO TO 30 

2A IF (NFIL(1,2).GT.NFIL( 1,11) GO TO 25 

LL = 2 
LH=1 

GO TO 26 

25 LL=1 
LH = 2 

26 CONTINUE 
II=NF(LL) 


125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 


DO 27 1=1, II 151 

, IF (NF1L( I ,LL1 .EQ.NFILd, 1) 1 GO TO 28 152 

27 CONTINUE 153 

28 10=1 154 

NF(LL)=NF(LL)-ID+1 155 

II=NF(LL1 156 

DO 29 1=1,11 157 

K=1+ID-1 158 

NFlLd ,LL)=NFILIK,LL) 159 

JJ=NM(LL) 160 

DO 29 J=1,JJ 161 

29 TBU I , J,LL)=TBL(K, J,LL) 162 

NFF=MINO(NFdl ,NF(2l 1 163 

FTEST=.TRUE. 164 

C 165 

C SHIFT ANGLE ARRAYS TO GET ANGLE CORRESPONDENCE 166 

C 167 

30 CONTINUE 168 

NMM=MlNO(NMd) ,NM(2) 1 169 

IF «DTdl.EQ.DT(21) GO TO 31 170 

ATEST=. FALSE. 171 

GO TO 37 172 

31 IF (AI (1,2) .GT. AId,l 1 1 GO TO 32 173 

LL=2 174 

LH=1 175 

GO TO 33 176 

32 LL=1 177 

LH=2 ■■ 178 

33 CONTINUE 179 

JJ=NM(LL1 180 

DO 34 J=1,JJ 181 

IF (AI(J,LL1.EQ.AI(1,LH)1 GO TO 35 182 

34 , CONTINUE 183 

GO TO 37 184 

35 JD=J 185 

NM(LL)=NM(LL1-JU+1 186 
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36 


JJ=NM(LL) 187 

DO 36 J=1,JJ 188 

K=J+JD-1 189 

AI ( J,LL)=AI (K,LL) 190 

I1=NF(LL) 191 

DO 36 1=1,11 192 

TBL(l,J,H.)=TBLn,K,LU 193 

NMM=MIN0(NM(1),NM12) ) ' 1 9A 

ATEST=,TRU£. 195 

C 196 

C page one output 197 

C 198 

37 CONTINUE 199 

CALL TITLE2 200 

WRITE (6,331 '201 

38 FORMAT (IH ,^^0X,45HP OWER LEVEL DIFFERENCES// 202 

147X,33H(DATA SET TWO MINUS DATA SET ONE)//) 203 

IF (FTEST.AND.SPLIT(1).AN0.SPLIT(2)) GO TO 45 204 

WRITE (6,39) PWL(2),PWL(1),DPWL 205 

39 FORMAT ( IH ,22X, IIHTOTAL P0WER//15X, 27HSET TWO SET ONE DELTA PWL 206 

1//4X,8H0VERALL ,3F9.1) 207 

IF (FTEST) GO TO 41 208 

WRITE (6,40) 209 

40 FORMAT ( 1 H2 , 30 X , 83H( FREQUENC I ES INCOMPATIBLE FOR COMPARISON, NO 90 210 

1 DEGREE ANGLE TO PERMIT 90/90 SPLIT)) 211 

GO TO 54 212 

41 WRITE (6,42) 213 

42 FORMAT ( IH , 3X , 8H0VERALL ,3F9.1//15H BAND FREQUENCY) 214 

DO 43 1=1, NFF 215 

DELTA=TPWL( I ,2 )-TPWL( I ,1) 216 

43 WRITE (6,44) I , NF I L ( I , 1 ) , TPWL ( I , 2 ) , TPWL ( I , 1 ) , DELT A 217 

44 FORMAT (IH , 13 , 18 , 3F9. 1 ) 218 

. GO TO 54 219 

45 . WRITE (6,46) 220 

46 FORMAT ( IH , 22 X , 1 IHTOT AL POWER, 45X,14HFR0NT QUADRANT , 19X, 13HREAR Q 221 

1UADRANT//15X,27HSET TWO SET ONE DELTA PWL , 26X , 2 ( 5X , 27HSE T TWO S 222 
2ET ONE DELTA PWL)//) 223 

DPF=PWF(2)-PWF(1) 224 

. DPR=PWR(2)-PWR( 1) 225 

WRITE (6,47) PWL(2),PWL( 1),DPWL,PWF(2),PWF(1),DPF,PHR(2),PWR(1) ,DP 226 

IR 227 

47 FORMAT ( IH ,3X , 8H0VERALL , 3F9 . 1, 24X, 8H0VER ALL , 3F9 . 1 , 5X , 3F 9 . I // ) 228 

IF (FTEST) GO TO 49 229 

. - WRITE (6,48) 230 

48 FORMAT ( 1H2 ,41 H ( FR EOUENC I ES INCOMPATIBLE FOR COMPARISON)) 231 

GO TO 54 232 

49 WRITE (6,50) 233 

50 FORMAT ( IH ,15H BAND FREQUENCY , 45X, 1 4HBAND FREQUENCY) 234 

DO 51 1=1, NFF 235 

DELTF( I)=FPSM( I ,2)-FPSM( I, 1) 236 

51 DELTR( I )=RPSM( I ,2 )-RPSM( I, 1 ) 237 

DO 52 1=1, NFF 238 

DELTA=TPWL( I ,2 )-TPWL( I , 1 ) 239 

52 WRITE (6,53) I , NF I L ( I , 1 ) , TP WL ( I , 2 ) , TPWL ( I , 1 ) , DEL TA , I , NF I L ( I , 1 ) , FPS 240 

1M(I ,2) ,FPSM( I, 1) ,D£LTF( I ),RPSM( I,2),RPSM( I , 1 ) , DELTR ( I ) 241 

53 FORMAT ( IH , I 3 , 1 8 , 3F9 . 1 , 21X , I 3 , 1 8, 3F9 . 1 , 5X , 3F9. 1 ) 242 

C 243 

C PAGE TWO OUTPUT 244 

C 245 

54 WRITE (6,1) 246 

CALL TITLE2 247 

WRITE (6,55) 248 

55 FORMAT ( IH ,32X,61HD IFFERENCES OF REFERRED 249 


25 



1 D A T A //^7X, 33H» DATA SET TWO MINUS DATA SET ONE)//) 250 

IF (ATEST) GO TU 57 251 

WRITE (6,56) 252 

56 FORMAT ( 1H2,A5H(0ATA SET ANGLES INCOMPATIBLE FOR COMPARISON)) 253 

GO TO 6 254 

57 WRITE (6,58) ( A I ( J , 1 ) , J = 1 , NMM ) 255 

58 FORMAT (IH , 9X , 5HANGLE , 19F6 . 0 ) 256 

WRITE (6,59) 257 

59 format (//) 258 

DO 63 K=l,2 259 

DO 60 J=1,NMM 260 

60 CALL DBSUM ( TBL ( 1 , J , K ) , NFF , SUM( J, K ) ) 261 

DO 61 J=1,NMM 262 

61 DIFF(J)=SUM(J,2)-SUM( J,l) 263 

WRITE (6,62) (DIFF(J), J=1,NMM) 264 

62 FORMAT (IH , 7X , 7H0VERALL , 19F6. 1 ) 265 

IF (FTEST) GO TG 6A 266 

WRITE (6,63) 267 

63 FORMAT (1H2,30X,50H(DATA SET FREQUENCIES INCOMPATIBLE FOR COMPARIS 268 

ION) ) 269 

GO TO 69 270 

64 DO 65 1=1, NFF 271 

DO 65 J=1,NMM. • , 272 

65 DIF( I ,J)=TBL( I , J,2)-TBL{ I,J,1) 273 

WRITE (6,66) 274 

66 FORMAT (IH ,14HBAND FREQUENCY) . 275 

DO 67 1=1, NFF 276 

67 WRITE (6,68) I , NF I L( I , 1 ) , ( D I F ( I , J ) , J =1 ,NMM ) 277 

68 FORMAT ( IH , 13 , 1 8, 3X , 19F6. 1 ) 278 

69 CONTINUE 279- 

C 280 

C . PAGE THREE OUTPUT ,281 

C 282 

IF (NS.LE.O) GO TO 6 283 

WRITE (6, 1) . 284 

CALL TITLE2 285 

: write (6,70) T , RH 286 

70 FORMAT ( IH , 20 X , 83HPERCE I VED AND TONE-CORRECTED RERCEIVED NOI SE LE 287 

IVELS. AND DIFFERENCES ALONG S I DEL INES///5UX , F 5. 1 ,.3H F * , F5. 1 , 11 H PER 288 
2CENT RH) 289 

DO 81 KK=1 ,NS 290 

IF (KK.EQ. 3.0R.KK.EQ.5 ) WRITE (6,1) 291 

IP (KK.EQ. 3. OR. KK.EQ. 5) CALL TITLE2 292 

. IF (KK.EQ. 3. OR. KK.EQ. 5) WRITE (6,70) T,RH 293 

DO 71 K=l,2 294 

NM1=1 295 

IF (AI(1,K).LE.0.0) NM1=2 296 

IF ( AI ( NMM, K) .GE. 180.0 ) NMM=NMM-1 297 

DO 71 J=NM1,NMM 298 

R0IST=S(KK)/SIN(AI (J,K)*3. 1415927/180.0) ' 299 

CALL bASPAT ( T BL ( 1 , J , K ) , lOG . 0 , NFF, NB , T , RH , TF A , RDI ST , ATA ( 1 , J , K ) ) 300 

71 CALL PNLT ( AT A ( 1 , J ,K ) , PNL (J , K ) , PNT ( J , K ) ) 301 

DO 72 J=NM1,NMM 302 

72 DPNL(J)=PNL(J,2)-PNL(J,1) 303 

WRITE (6,73) S( KK) ,( AI ( J,1).,J=NM1,NMM) 304 

73 FORMAT (///,11X,F6.0,12H FT SIDEL INE//5X,5HANGLE,5X, 19F6.0) 305 

WRITE (6,74) ( PNL( J,2) ,J=NM1,NMM) 306 

74 . format (1H0,1X, 12HSET TWO PNDB,1X, 19F6.1) 307 

WRITE (6,75) ( PNL( J, 1) ,J=NM1,NMM) . 308 

75 FORMAT (IH ,1X,12HSET ONE pnDB, IX , 19F6. 1 ) 309 

WRITE (6,76) (DPNL(J), J=NM1,NMM) 310 

76 .format (1H0,1X , lOHDELT a PNDB, 3X, 19F6. I ) 311 

DO 77 J = NM1,NMM ' 312 ’ 


26 

I 



77 


DPNT( J)=PNr(J,2)-PNT( J,l) 313 

WKITF (6,78) ( PMT( J,2) ,J=N«1 ,NMK) 31', 

78 FO«?MAr ( IHO.IX, 12HSET TWU PNL T , IX , X9F6 . i ) 315 

WRITE (6,79) { PNT( J,l) ,J=NM1,NMM) 316 

79 format (1H ,IX,12HS6T ONC PNLT , IX, 19F6 . 1 ) 317 

WRITE (6,30) (DPNT(J), J=NM1,DHM) 318 

80 FORMAT ( IH 0 , IX , 1 OHOELT A P.'^LT , 3X, 19F6. 1 ) 319 

81 CONTINUE 320 

WRITE (6,1) 321 

GO TO 5 322 

END 323- 


SUBROUTINE OBSUM (A,N,SUM) ] 

C /08SUM - DECIBEL SUM/ 


C « ■ ♦ 
C ♦ UTILITY ROUTINE TO COMPUTE A DECIBEL SUM ( ANT I LOGARI THMIC SUM) ♦ 
C ♦ FOR A NUMBER OF LEVELS. ♦ 
C ♦ ' ♦ 
C « A ARRAY OF DECIBEL VALUES ♦ 
C * N NUMBER OF VALUES ♦ 
C ♦ SUM DECIBEL SUM ♦ 
C ♦ ♦ 


DIMENSION A(27) 

SUM=0.0 
DO 1 I=i,N 

1 SUM=SUM+10.0«A( A( I )/lO.O) 

SUM=10.0«ALOG10( SUM) 
RETURN 
END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19- 
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C 

c 

c 

c 

c 


SUBROUTINE FAROT A ( S L , RT , NF , NB, NM , A 1 , T , KH , 0 I S T , I C , F AR SL ) 
/FAROTA - FAR DATA/ 


♦ ta 


EXTRAPOLATES REFERRED ARRAY TO-’A FAR FIELD RADIUS OR SIDELINE 
ACCOUNTING FOR INVERSE SQUARE AND EXCESS ATMOSPHERIC ATTEN- 


c 


UATIQN. 


c 

* 



c 


SL 

REFERRED ARRAY 

c 


RT 

CORRESPONDING RADIUS 

c 


NF 

NUMBER OF FREQUENCY BANDS 

c 


NB 

1/NB-CCTAVE FREQUENCY BANDS 

c 


NM 

NUMBER OF ANGLES . • . 

c 


AI 

ANGLES 

c 


T 

TEMPERATURE (DEGREES FAHRENHEIT) 

c 


RH 

RELATIVE HUMIDITY ; ' ' . . 

c 


nisT 

DISTANCE FROM SOURCE FOR E XTR APOL AT I ON , - 

C - 

, ^ 

IC 

CONTROL. IF IC EQUALS ZERO, ,D i S T I S ’ TAKEN AS , A 

c 



RADIUS ABOUT THE SOURCE. IF I C = ' 1 , DIST IS TAKEN 

C ■ 



AS NORMAL DISTANCE TO A PARALLEL SIDELINE. 

c 

* 

FARSL 

EXTRAPOLATED DATA ARRAY ON A RADIUS OR SIDELINE 

c 




c . 

❖ 

CALLS 

BASPAT • 

c 




c 

♦ 

♦ « ♦ « 




DIMENSION 

SL(27,19),AI a9),FARSL(27,19) ,TFA(27) 


ROIST=DIST 

F=3. 1A1S927/180.0 

DO 6 J=1,NM 

IF ( IC.EQ.O) GO TO 

IF { IC.EQ. 1) GO TO 

WRITE ,(6,1) . , , 


1 FARDTA) , .. 

RETURN ■ ’ 

ST=SIN(AI(J)*F) 

IF, (ST.LE.O.Q) GO TO 4 
RDIST=DIST/ST 

CALL BASPAT (SL ( I, J) , R T , NF , NB, T , RH , TF A ,RDI ST , F ARSL (1, 

GO TO 6 

DO 5 I=1,NF ... , . 

FARSL( I , J )=0.0 

CONTINUE 

RETURN 

END 


♦ * 

3 


4 


5 


6 

* 

7 


8 

♦ 

9 

* 

10 


11 

♦ 

12 

A 

13 

, ♦ 

14 

♦ . 

15 


16 

* 

17 


Ifl 

♦ ■ 

19 

- .♦ ; 

20 


21 


22 

♦ 

23 

♦ 

24 

♦ ♦ 

25 


26 


27 


28 


29 


30 


31 


32 

•INE 

33 

: ‘ ( 1 

34 


35 


36 


37 

; 

38 


/ 39. 


- 40 


41 


42 


43 


44 


45- 


SUBROUTINE GRAPH (SL.NF) 

C /GRAPH - GRAPH OUTPUT ON PRINTER/ 


C ^ ^ ♦ 

c * utility routine to print graph of a normalized array. ^ 

c * ^ 

C SL normalized array 

C * NF NUMBER OF ELEMENTS OF ARRAY « 

C « « 


DIMENSION SL(27),P( 132 ),0( 4) 
DATA HLANK/IH / 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 
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f*- CO O' 


DATA XtPIfZcRO, S I GN , C/ 1 HO , 1 hi , IHO , 1 H- , , 1H3 , iH4/ T3 

WRITE (6,n . . lA 

1 FORI-AT (50X,34HN0RMALIZED POWER SPECTRUM ///) . .15 

00 2 1=1, NF 16 

2 SL( n=ABS(SL(I ) ) 17 

on 9 L=l,41 18 

DO 3 J=i,132 19 

3 P(J)=BLANK .20 

P(24)=PI . 21 

P( A«NF+20)=PI 22 

IF (L.EQ.l) P(21)=2ERO .23 

IF (L. Eg. in GO TO 4 24 

IF (L.E0.21) GO TO 4 _ 25 

IF (L.EQ.31) GO TO 4 26 

IF (L.EQ.41) GO TO 4 27 

\ GO TO 7 .23 

4 P(20)=SIGN . : 29 

P(22)=ZER0 ,30 

K=L/10 31 

P(2l)=DIK) 32 

IF (L.EQ.41) GO TO 5 33 

GO TO 7 34 

5 KK=4«NF+19 .35 

DO 6 K=25,KK • , .36 

P(K)=SIGN .1 37 

A=FL0AT(L-l)-0.5 38 

B=FLGAT(L-n+0.5 ) 39 

DO 8 1=1, NF I ' ^,0 

IF (SU I ).GE. A. AND.su I ) . L T . B ') P ( 4^ n20 ) =X ‘ 41 

CONTINUE | ‘ 42 

WRITE (6,10) (1P( I),I=1,132) i A3 

10 FORMAT (IH ,132A1) 44 

WRITE (6,11) (I,I=1,NF) 45 

11 FORMAT (/21X,27I4) 46 

RETURN 47 

END A8- 


C MAIN PROGRAM LIST 1 

C /LIST - LIST DATA ON PRINTER/ 2 

Hi ^ 3 

C 4 

C ♦ READS, assembles SETS OF HURKING DATA AND PREPARES PRINTED * 5 

C * OUTPUT IDENTICAL WITH THAT OF WUDAG COMMENCING WITH REFERRED ♦ .6 

C « ARRAY. '* 

C * 8 

Q H,*H*H***************X‘****H‘Hi*H*H«iH:*H 9 

COMMON /WU/A{20,A ) , NCONF , RPM , PCS , NF , NM , NG , PWL, SUMN.PSM (27) ,DT , 10 

1 Aid.)), NFIL(2T), 01(27, 19) 11 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 




4-- 

« 

VARIAbLES 

IN COMMON BLOCK /Wl)/ 

* 

♦ 


A (20,4) 

FOUR CARDS OF ID (WORD LENGTH A) 



NCONF 

CONFIGURATION NUMBER 


* 

KPM 

SPEED IN RPM 

* 

ir 

PCS 

PERCENT SPEED 

* 

ir 

NF 

NUMBER OP FREQUENCY RAMOS 


ir 

NM 

NUMBER UF ANGLES 



NB 

1/NB-GCTAVE BANDS 



PWL 

OVERALL ACOUSTIC POWER LEVEL 

« 


SUMN 

DECIBEL SUM OF NORMALIZED POWER SPECTRUM 

* 


PSM( 27 ) 

NORMALIZED POWER SPECTRUM 

♦ 


DT 

ANGLE increment 

♦ 


AI ( 19) 

ANGLES 

♦ 


OF I L (27) 

BAND CENTER FREQUENCIES 


♦ 

DU 27, 19) 

DIRECTIVITY INDEX 

♦ 


^ ' .V * 

4c 4t« * « ♦ <t « « 44c« 'if ^ 4;^:^ 

DIMENSION BUF(27,19) ,TFA(27,19),SL(27,19) 

DIMENSION AM(19) 

DIMENSION D(27),C(27) ,0(27),E(27),SLR(27) 

DIMENSION US(6) ,SD(5) 


DEFINE NUMBER OF SIDELINE DISTANCES 


READ (5,1) RSTD,(SU( I ),I=i,5) 
FORMAT (6F6.0) 


* * 

* INPUT DATA REQUIRED * 

4C ‘ CNE CARD WITH UP TO FIVE SIDELINE DISTANCES, * 

OR A BLANK CARO FOR NO SIDELINE EXTRAPOLATIONS- ♦ 

if 


DO 2 1=1,5 

IF tSO( I > .LE.0-0) GO TO 3 

CONTINUE 

NR = 5 

GO TO A 

CONTINUE 

NR=I^1 

CONTINUE 


CALL WDATA 


* INPUT DATA REQUIRED . . 4c 

« ONE OR MORE SETS OF WORKING DATA TO BE LISTED- ♦ 

« « 


CALL ASMBL (RSTD,SL) 


TITLE PAGE . ^ 

WRITE (6,6) 

6 FORMAT (IHl) 

WRITE (6,7) 

7 FORMAT ( IH4,46X,35HN OISE DATA LISTIN G // // 5 2X ,2 6HC 
lOMPUTED FROM WORKING DAT A //6AX , 2HOF / / / ) 


12 

13 

lA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3.8 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 
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UO S J = l,4 "^5 

8 WRITE (6,91 ( A( I , J ) , 1=1,2J) 76 

9 FORMAT (00X,20A4» 77 

WRITE (6,10) 78 

10 FORMAT (/) 79 

WRITE (6,11) NCONF ,PCS,RPM,MF,t-iB,MFIL( I ) , NF IL(.NF ) ,NM, OT, AI ( 1) ,AI (N 30 

IM) Si- 
ll FORMA! ( IH ,31X,13HC0NFIGURATI0N,IA,10X,F5.1,1AH PERCENT SPEED, IGX 82 

1,F8.C',AH RPM// A3X, I2,5H - 1/,I1,18H OCTAVE BANDS FROM, 15, 3H TO, 16, 83 

26H HERTZ//42X, I3,13H ANGLES EVERY , FA . 0 , 1 3H DEGREES Fft0M,F5.0,3H TO 84 

3,F5. 0) 85 

C 86 

C PAGE THREE 87 

C referred ARRAY 08 

C '89 

CALL TITLE ( A, NCONF, RPM, PCS ) 90 

WRITE (6,12) RSTD 91 

12 FORMAT (52X,27HR EFERRED ARRA Y// 33X , 7H0ATA AT,F6.1,42H 92 

1 FT RADIUS WITH NO ATMOSPHERIC ATTENUAT I0N/45X , 40H( FOR POWER AND D 93 

2IRECT1VITY COMPUTATIONS)//) 94 

CALL ANGLE ( AI ,NM) 95 

CALL OASPL (SL,NM,NF,E) 96 

WRITE (6,13) (E(I),1=1,NM) 97 

13 FORMAT (15H COMPUTED OASPL , 19F 6 . 1 ) 98 

WRITE (6,10) 99 

CALL TBLOP ( SL , NF , NF 1 L , NM, 1 ) 100 

C lOl 

C 102 

C PAGE FOUR 103 

C ACOUSTIC POWER 104 

C 105 

C COMPUTE TOTAL POWER, WATTS 106 

C 107 

W=1..J£-13=»10.0**(PWL/10.0) 108 

CALL AVSLR (E, AI ,DT,NM,SLRO) 109 

C 110 

C COMPUTE POWER SPECTRUM 111 

C 112 

DO 14 1=1, NF 113 

14 C( I ) =PWL-SUMN+PSM( I ) llA 

DO 16 1=1, NF 115 

DO 15 J=1,NM 116 

15 D(J)=SL(I,J) 117 

16 CALL AVSLR ( D, A I , DT, NM , SLR ( I ) ) 118 

CALL TITLE ( A, NCONF, RPM, PCS ) 119 

WRITE (6,17) RSTD 120 

17 FORMAT (40X,53HA COUSTIC POWER COMPUTATION 121 

1 S//,73X, lOHNORMAL 1ZED,10X,6HSIMPLE/29X,4HBAND,8X,9HFREQUENCY,4X,3 122 

21HP0WER SPECTRUM POWER SPECTRUM, 5X, 15HS0URCE SPL, R =,F6.1,3H FT 123 

3//) 124 

DO 13 1=1, NF 125 

18 WRITE (6,19) I ,NF1L( I ) ,C( I ) , PSM( I ) ,SLR( I ) 126 

19 FORMAT (30X,I2,I16,3F17.1) 127 

WRITE (6,20) SUMN,SLRO 128 

20 FORMAT ( /75X, F 7 . 1 , SH OVERALL , F9. 1 , 8H OVERALL) 129 

WRITE (6,21) 130 

21 FORMAT ( / ,55X, 20HTOTAL ACOUSTIC POWER/72X , 3H-1 3 ) 131 

WRITE (6,22) PWL,W 132 

22 FORMAT (52X,5HPWL =,F6.1,16H OB RE 10 W ATT// 53X , 3HW =,F7.1,6H WA 133 

ITTS/) 134. 

C 135 

C 136 

C page; five 137 
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c NOKMALIZED POWER SPECTRUM (GRAPH) 138^ 

C ' 139 

CALL TITLE ( A, NCONF t RPMf PCS ) ' 1^0 

CALL GRAPH (PSMfNF) ' lAl 

C 142 

C 143 

C page six 144 

C - DIRECTIVITY INDEX 145 

C 1"^6 

CALL TITLE ( A, NCONF, RPM, PCS ) * 147 

WRITE (6,23) 148 

23 FORMAT (50X,33HC IRECTIVITY INUE X//) 149 

CALL ANGLE (AI ,NM) 150 


CALL TBLOP (DI ,NF,N'FIL,NM,1 ) 

CALL AVSLR (E, AI,Or,NM,DIU) 

DO 24 J=1,NM 

24 E( J)=E(J)-DIO 

WRITE (6,25) ( E(3) ,J=1 ,NM) . 

25 FORMAT (8X,7H0VERALL,19F6.l) 

C 

C 

C PAGE SEVEN 

C ATMOSPHERIC ATTENUATION 

C . : . 

•C COMPUTE THOUSAND FOOT EXCESS ATTENUATION 

C . , ‘ 

DO 26 J=1,NM 

26 CALL BASPAT ( SL ( I , J ) , RST D, NF , NB, 59 -0 » 70.0 , TF A ( I , J ) , RSTD , B ) 

, C 

CALL TITLE ( A, NCONF , RPM ,PCS ) 

WRITE (6i27) 

27 FORMAT (43X,45HA TMOSPHERIC ATT.ENUATIO N//35X, 
161HSTANDARD DAY EXCESS ATMOSPHERIC ATTENUATION PER THOUSAND FEET// 
237X,56HC0MPUTE0 FROM REFERRED ARRAY CONSIDERING SPEC f RUM S HAP ES// ) 

CALL ANGLE ( AI ,NM) .. 

CALL TBLOP ( TF A , NF , NF I L, NM , 1 ) 

C ^ 

C 

C PAGE EIGHT 

C STANDARD DAY DATA ATMOSPHERIC ABSORPTION 

C 

CALL TITLE ( A, NCONF, RPM, PCS ) 

WRITE (6,28) RSTD 

28 FORMAT (16X,95HS T A N 0 A R D D ‘ A "Y DATA EXCESS A 

ITMOSPHEKIC ATTENUATIO N/ /26X, 6QHAD JUS TME NTS T 
20 REFERRED ARRAY TO OBTAIN STANDARD DAY DATA AT,F6.0,10H FT RADIUS 
3//) . ^ 

00.29- J=1,NM 
DO 29 I = UNF 

„.29 BUF(I,J)=TFA(I,J)«RSTD/1000.G 
CALL ANGLE (AI ,NM) 

CALL TBLOP ( BUF , NF , NF I L , NM, 1 ) 

C 
. C 

c page nine 

C STANDARD DAY DATA 

C. ^ ^ . 

CALL TITLE ( A, NCONF, RPM, PCS ) 

WRITE (6,30) RSTD 

.30 FORMAT (48X,33HS T ANDARD DAY OAT A//43X , 7HDATA AT,F6 
1.1, 30H FT RADIUS ON 59F, 7CPC RH DAY//) 

DO 31 J=1,NM 
DC 31 I=1,NF 
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175 
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196 

197 

198 
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31 BUFU , J)=SL( I, J )-BUF( I ,J I ■ 201 

CALL AMGLE (AI,NM) 2D2 

CALL UASPL (BUF ,NM,NF, 8) 203' 

WRITE (6,13) ( B( I ) , I=1,NM) 20 A 

WRITE (6,10) 205 

CALL TBLOP (BUF,NF,NFIL,NM,1 ) 206 

WRITE (6,10) 207 

WRITE (6,32) RSTD 203 

32 FORMAT ( 4AX , 1 8H PERCE I VEO NOISE 0N,F8.1,17H FT RADIUS, PNDB// ) 209 

CALL angle (AI,NM) 210 

CALL APNDB ( BUF , NB , NM , B ) 211 

WRITE (6,33) (B(I),I=l,NM) 212 

33 FORMAT (15X,19F6.1) - _ ’ 213 

C . - . , . 21A- 

C. . . - . • • ' ■ 215- 

C PAGE TEN AND FOLLOWING 216 

C SIDELINE EXTRAPOLATED DATA ■ 217' 

C • , . • 218' 

C DELETE ON-AXIS DATA 219 

C .. .. 220 

MM=NM 221 

DO 34 J = 1 ,MM • . - . '■ 222 

34 AM( J)=AI ( J) . • ■ . 223 

IF, (AM(l).GT.O.O) GO TO 36 224' 

MM=MM-1 225 ' 

DO 35 J=1‘,MM 226 

AMI J )=AM( J+1 ) . 227 

DO 35 1=1, NF 223 

35 SL( I ,J)=SL( I ,J+1) 229 

36 IF (AM(MM) ,LT. 180.0) GO TO 37 230 

MM=MM-1 231 

37' continue 232 

C 233 

KK=NR+1 234 

DO 33 1=2, KK 235 

38 DS( I )=SD( I-l ) 236 

0S(1)=RSTD 237 

DO 44 K=1,KK 238 

CALL TITLE ( A, NCONF, RPM, PCS ) 239 

WRITE (6,39) DS(K) 240 

39 FORMAT (40X,52HS IDEL I NE. EXTRAPOLATED .DATA 241' 

1 //23X,20HSTANCARD DAY. DATA 0N,F7.0,59H FT SIDELINE, INCORPORATIN 242 
2G EXCESS ATMOSPHERIC ATTENUATION//) 243 

CALL SIDLAT ( MM , AM ,RSTD, O.S ( K ) , B, C ) , 244 

DO 40 J = l, MM ■ 245 , 

DO 40 1=1, NF 246 

40 BUF( I ,J)=SL(1, J)-B(J)-TFA( I,J)«C(J)/1000.0 247 

CALL ANGLE (AM, MM) .. 248 

CALL OASPL (BUF,MM,NF,C) 249 

WRITE (6,p) (C(.I ) ,I=1,MM) • 250 

WRI TE (6, 1.0) ■ . 251 

CALL TBLOP (BUF,NF,NFIL,MM,0) 252 

WRITE (6,10) . 253 

WRITE (6,41) DS( 1 ) ,DS(K) , (B( I ), I = 1,MM) 254 

41 FORMAT (3uX,35HINVERSE SQUARE . LAW A TTENU AT I ON , FROM ,• F7 . 0, 1 4H FT RA ' 255-- 

IDIUS T0,F7.0,13H FT S IDEL INE//15X , i 9F6 . 1// ) 256 

WRITE (6,10) • . . 257 

CALL APNUB‘'(BUF,NB,NM,B) . • ■ - 258 

WRITE (6,42) DS(K) , 259 

42. FORMAT ( 45 X , 18 HPERCE I V ED NQISE 0N,F7.0,19H FT SIDELINE, PNDB//) 260 

CALL ANGLE (AM, MM) 261 

WRITE (6,43) ( B( 1 ) , I=1,MM) 262 

43' FORMAT (15X,19F6.1) . . 263 


% 
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IF (NR.LE.O) GO TO 45 

264 

44 

CONTINUE 

265 

45 

WRITE (6,6) 

266 

C 


267 


GO TO 5 

268 


END 

269- 


SUBROUTINE OAS PL (A,NM,NF,OA) 

C /QASPL - ARRAY OVERALL SUUNO PRESSURE LEVELS/ 


C <= 

C ♦ UTILITY ROUTINE TO COMPUTE OVERALL SOUND PRESSURE LEVELS * 
C ♦ FOR ALL ANGLES OF A DATA ARRAY. « 
C ♦ ^ ■ * 
C ♦ A DATA ARRAY ♦ 
C . NM NUMBER OF ANGLES ♦ 
C ♦ NF NUMBER OF FREQUENCY BANOS *' 
C * OA OVERALL SPLS FOR ALL ANGLES * 
C ♦ * 
C * CALLS D6SUM * 
C * * 


DIMENSION A(27,19) ,0A(19) 
DO 1 J=1,NM 

CALL OBSUM I A( 1 , J ) ,NF , SUM ) 
1 OA( J )=SUM 

RETURN 
END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 - 


SUBROUTINE PNDB (NB,LB,PNL,NC) 

/PNDB - PERCEIVED NOISE DECIBELS/ 

4c ^ ♦ 4 ♦ * « « 4 '« ♦ Jjt ♦ ♦ ♦ « * 4 : ♦ ♦ ♦ ♦ ♦ 

COMPUTES PERCEIVED. NOISE LEVEL (PNL) IN PNDB IN ACCORDANCE WITH 

SOCIETY OF AUTOMOTIVE ENGINEERS AEROSPACE RECOMMENDED PRACTICE 

NO. 865A, AUGUST 15, 1969. 

NR 1/N8-CCTAVE BANOS 

LB ARRAY OF 8 OR 24 CONSECUTIVE i/NB-OCTAVE BAND SOUND 

PRESSURE LEVELS. LBIl) CONTAINS SPL FOR 63 HZ BAND 
IF NB = i. LBU) CONTAINS SPL FOR 50 HZ BAND IF 
NB = 3. 

PNL PERCEIVED NOISE LEVEL IN PNDB 

NC OUTPUT CONTROL. IF NC EQUALS ZERO, NO PRINTED OUTPUT 

(OTHER THAN ERROR MESSAGES) WILL BE GENERATED. 

IF NC IS OTHER THAN ZERO, A TABULATION OF BAND NUM- 
BERS, LEVELS, NOY VALUES, AND PERCEIVED NOISE LEVEL 
WILL BE PRINTED. 




34 


ftEM L£J(27 ) ,NOY (24 ) ,K,NM6X,NBAK,MJ, LK 25 

REAL L(24,5),M(24,4) 26 

DATA L /49.0, 44. C,:i 0.3, 34.0,30.0,27.0,24.0,21.0, 18.0,5*16.0,15.0, 27 

1 1 2 . , 9 . C , 5 . 3 , 4 . 0 , 5 . 0 , 6 . 0 , 1 Q . 3 , 1 7 . 0 , 2 1 . 0 , 5 5 . 0 , 5 1 . 0 , 4 6 . 0 , 4 2 . G- , 3 9 .- 0 , 2 8 

236.0. 33.0.30.0.27.0.5*25.0,23.0,21 .0, 18.0,15.0,2*14.0,15.3,17.0, 29 

323.0. 29.0.64.0.60. ;, 56. 0,53. 0,51. 0,48. 0,46. 0,44. 0,42. 0,5*40.3, , 30 

438.0. 34.0.32.0.30.0.2*29.0,30.0, 31.0,37.3,41.0,52.0,51.0,49.0, 31 

547. 0. 46.0. 45.0 .43. 3. 42 .0.41.0. 5*40.0, 38.3, 34.3,32.0,30.0, 32 

62*29.0,30.0, 31 .0,34.0,37.0,91.01,85.88,87.32,79.85,79.76,75.96, 33 

773.96,74.91,94.63,13*100.30,44.29,50.72/ 34 

DATA M/0. 079520, 2*0.068160, 0.059640, 10*0.053013,0.359640, 35 

12*0.053013, 2*0. 047 71 2, 2*0. 0530 13, 0.068160, 0.079520,0. ,0596401,- .36 

22*0.058098,0.052288,0.047534,2*0.043573,0.040221,0.037349, 37 

37*0.034659,0.040221,0.037349,4*0.034859,2*0.037349,0.043573, 38 

40.043476.0. 040570.2*0.036831,0.035336,2*0.033333,0.032051, . 39 

50.030675,6*0.030103,7*0.029960,2*0.042285, 15*0.030103,9*0.029960/ 40 

IF (NB.EQ.n GO TO 2 41 

IF (Nb.EQ.3) GO TO 3 .42 

WRITE (6,1) . 43 

1 FORMAT (1H0,23HPND8 SUBROUTINE MESSAGE/41H FREQUENCY BANDWIDTH IMP .44 

IROPERLY SPECIF IED/47H RETURN TO CALLING PROGRAM WITH PNDB EQUAL ZE 45 

2R0//) 46 

PNL=0.0 47 

RETURN 48 

2 NF=8 49 

K=0.3 50 

MM=3 51 

LL=1 52 

GO TO 4 53 

3 NF=24 54 

K=0.15 55 

MM=1 56 

LL=0 57 

4 continue 58 

NMAX=O.U 59 

SUMN=0.0 60 

DO 12 1=1, NF 61 

J=MM*I-LL 62 

IF (LB(I).LT.L(J,D) GO TO 6 63 

IF (L( J,1 ) .LE.LBI I ). ANC.LBI I ».LT.L{ J,2 ) ) GO TO 7 64 

IF ( L(J,2) .LE. L6( I ).AND.LB( I ).LT.L( J, 3)) GO TO 8 65 

IF (L( J,3).LE.L8(I ).AND.LB( I ).LT.L(J,5) ) GO TO 9 66 

IF (L( J,5).LE.LB( I >.AND.LB( I ).LT.150.0) GO TO 10 67 

IF (Lb(I >. EG. 150.0) GO TO 10 68 

WRITE (6,5) LB(I) 69 

5 FORMAT (30H PNDB SUBROUTINE ERROR MESSAGE//F6.1,68H UB EXCEEDS RAN 70 

IGE FOR VALID PNDB CALCULATION. RETURN WITH PMDB =0.) 71 

PNL=0.0 72 

RETURN 73 

6 NOY(I)=0.0 74 

GO TO 12 75 

7 MJ=M(J,1) 76 

LK=L(J,1) 77 

A=0.1 78 

GO TO 11 79 

8 MJ=M(J,2) 80 

LK=L(J,3) 81 

A=1.0 62 

GO TO 11 83 

9 MJ=M(J,3) 84 

LK=L(J,3) 85 

A=1.0 86 
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GO TO U > . . 



87 

10 

NJ=M( J,^) - • ' • 



38 

f 

LK = L ( J f A ) 


. . . , • .t 

89 

A»i .V ‘ 


. -* • 

90 

11 

NOY( I )' = A*10.0*«(^■J«(LB( I )^LK) ) ' ' ' 

— 


91 


IF :(NDY( ^•.GT.N^'AX)■ NMAX = NOY( ( ) 

* ■ , . 


92 


SUMN = SUMiJ+NOY(’I ) ■ -- * • V 

' • - 

<.i ' i ■ - 

93 

12 

CONTINUE'''' • . 



94 


MHAR = r>lMAX+‘K*( SUMN-r.'MAX I ' ; ' ' . . 



95 


PNL=A^C.U+33.22tALOGl'0(NBAi<) ' ' ’ . ; ' ' ' 

. - • * . ; 


96 


IF (NiC.EQ.O) RETURN ' ■ 



97 


WRITE (6, 1 3) ! 



98 

13 

FORMAT ( lHO,'22HPNDb ‘SUBRGUTINE OUTPUT) 


■ 

99 


GO TO ( 15 ,22 ,20 ) ,ND ■ ’ ' •• ] ' • 



100 

"14 

WRITE (6,16) ;( I , r=l ,NF ) ' , 

i } 


101 

‘ 15 

WRITE (6,16) '( r,;i = i,NF.) ' 



102 

16 

FORMAT (1H0, '5H P. AN D, I 6 , 1M7 ) 



103 


VK^ITE (6,17) (LB(I ),I = 1,NF) 



104 

17 

FORMAT (IH ,5HLEVEL, 12F7. 1 ) 



105 


WRITE (6,13) PNL 



106 

iB 

FORMAf ( 1H+,92)(,;F6.1,5H PNOB ) , , 



107 


WRITE (6',19) (N0Y(I),T=1',NF) ' ' 


; 

108 


FORMAT (IH ,5H NOYS,12F7.1) 



109 

* 

RETURN 


. • ^ 

no 

20 

IF (NF.LE.12) GO TO 14 



111 


WRITE (6,16) ( I ,1 = 1,12) 



112 


WRITE (6,17) (LB(1),I=1,12) 



113 


WRITE (6,19) ( N0Y( I ) , I =1,12) 



114 


WRITE (6,21) 


■ : 

115 

21 

FORMAT (/) 



116 


WRITE (6,16) (I,I=13,NF) 



117 


WRITE (6,17) ( L6( I ), I=13,NF) 



IIB 


WRITE (6,18) PNL 



119 


WRITE (6,19) ( N0Y( I ) , I=13,NF) 



120 

22 

RETURN 



121 


END 


■ ' 

122 




SUBROUTINE PNLT (SL,PDB, DBT. ). , 


1 

C 


/PNLT - TONE-CORRECTED PERCEIVED NOISE LEVEL/ . 

2 

e 



44 4444 (4 444444 

3 

c 



' ' '■ ■ . 4 

4 

e 


COMPUTES; TONE-CGRRECT.ED P.ERCEIVED NOISE 

LEVEL (PNLT) FOR' A " * 

5 

c 

* 

1/3-OCTAVE BAND SOUND SPECTRUM IN ACCORDANCE WITH FEDERAL ■ ,* . 

6 

G 

* 

AVIATION REGULATIONS, VOL. Ill, PART 36 

- NOISE STANDARDS, : 4 

7 

c 


AIRCRAFT TYPE CERTIFICATION. 

4 

8 

c 


ALSO COMPUTES PERCEIVED NOISE LEVEL. 

. ; ■ 4 

9 

c 

❖ 


4 

10 

c 


SL 1/3-OCTAVE BAND SOUND SPECTRUM 


11 

:G 


PDB PERCEIVED NOISE LEVEL, PNDB 

4 

12 

-G 


DBT TONE-CORRECTED PERCEIVED NOISE 

LEVEL, PNLT 4 

13 

.e 



. ' -4 

14 

c 


CALLS PNDO 


15 

c 

4' 


• . . 4 ‘ 

16 

.c 

4 


444444444 4444 

17 

V. 


DIMENSION SL(24 ) ,SLP( 2A) ,F( 2A) 


18 



01 MENS ION SBAR ( 25 ) 

. ■» , ■ ' 

19 



real M(25) 

* . . . - • 

20 

'.it 


LOGICAL N(2B) 


21 


INTEGER FREQ(2A) , 22 

DATA FREO/50,63,30,100,125,160,2vC.,250,315,40D,500,630,8 G, IjOO,'. 23 

1 125 j, 1600, 2000,2500, 3150,4.000, 5000f 6300,8000, lOOOD/ 24 

DO 1 1=1,24 25 

IF (SL(n.LT.O.O) SLm=C.O 26 

1 N(I) = . FALSE. 

DO 2 1=4,24 . - 28 

2 M( I )=SU n-SL( I-l ) Z*? 

DO 3 1=5,24 30 

IF lABSlMII )-M( I-l n .LE.5.0) GO TO 3 • 31 

IF (M{ I ) .GT.0.0. AND.m I ) .GT.M( I-l ) ) N(I) = .TRUE. -32 

IF (Mil I.LE.O.O.AMO.MI I-1).GT.0.0) N ( I - I ) = . TRUE . 33 

3 CONTINUE r 3.4 

DO 6 1=1,24 35 

IF {.NOT.Ndn GO TO 4 36 

IF ( I .EQ.24) GO TO 5 . - . 37 

SLPI I ) =I SL(I-1 )+SL { I+l ) )/2.0 38 

GO TO 6 : 39 

4 SLPm=SL(I) 40 

GO TO 6 ■ . ■ - . -41 

5 5LPI24)=SL(23)+M(24) 42 

6 continue 43 

DO 7 1=4,24 44 

7 M( I )=SLP( I )-SLP( I-l) 45 

MI3)=M(4) ... 46 

M(25)=M(24) . . 47 

DO 8 1=3,23 -< 48 

8 SBAR(I)=(M( I)+M( I+l)+M( 1+2) )/3.0 . ■ 49 

SLP(3)=SLI3) - 50 

DO 9 1=4,24 51 

9 SLP( I )=SLP(I-1 )+SBAR( I-l) 52 

TMAX=0.0 53 

T=0.0 ‘ • • ' . 54 

DO 14 1=3,24 r ■ 55 

F(I)=SL(I)-SLP(I) 56 

IF (Fin.LE.O.O) GO TO 14 57 

IF (5j. LE.FREQI I ). AND.FREOI I ) .LT. 500) GO TO 10 58 

IF (5G00.LE.FRECI I ).ANO.FREQ( I ).LE.10000) GO TO 10 59 

GO TO 11 60 

10 IF (F( I ).LT.3.0) T=0.0 61 

IF (3.0.LE.FII ).AND.F( D.LT.20.0) T=F(I)/6.0 62 

IF (20.0.LE.F( I ) ) T=3.0+1.0/3.0 63 

GO TO 13 64 

11 IF (500.LE.FREQ( I ) .AND.FREOI I ) .LE.5000) GO TO 12 65 

GO TO 14 ^ _ ,66 

12 IF (F( I ) .LT.3.0 ) T=0.0' 67 

IF ( 3.0.LE.FI I ) . AND.FI I ) .LT.20.0). T=F( I )/3.0 68 

IF (2C.0.LE.FI I ) ) T=6. 0+2. 0/3.0 ' 69 

13 IF (T.GE.TMAX) TMAX=T 70 

14 continue 71 

CALL PMDB (3,SL,PDB,0) 72 

DBT=PDB+TMAX 73 

RETURN , ■ ■ 74 

END 75 






SUBROUTINE POWER ( A, R , A I , NM , DT , T , 6 AR , PWL i W ) 


1 

c 



/POWER - TOTAL ACOUSTIC POWER/ 


2 

c 


♦ * ♦ 


4 4c 

3 

c 





4 

C’ 


COMPUTES TOTAL ACOUSTIC POWER BY INCREMENTAL AREA SUMMATION 

4t 

5 

C’ 


FOR 

A SET OF- ANGLES AND REFERRED SOUND PRESSURE LEVELS ON AN 

♦ 

6 

C- 


ARC. 

PRESENCE OF PERFECTLY REFLECTIVE GROUND PLANE ASSUMED. 

♦ 

7 

c 

♦ 



4: 

8 

c 


A 

ARRAY OF REFERRED SPL DATA ON AN ARC 

« 

9 

c 


R 

ARC RADIUS 

4^ 

10 

c 

♦ 

AI 

CONSECUTIVE ANGLES CORRESPONDING WITH ELEMENTS UF A- 

♦ 

11 

c 


NM 

NUMBER OF ANGLES 

♦ 

12 

c 

* 

DT 

ANGLE INCREMENT 

♦ 

13 

c 


T 

TEMPERATURE (DEGREES FAHRENHEIT) 

♦ 

14 

c 

❖ 

BAR 

BAROMETER (INCHES HG) 


15 

c 


PWL 

POWER LEVEL RE 0.1 PICOWATT. 

4: 

16 

c 


W 

ACOUSTIC POWER, WATTS 

♦ 

17 

c 

« 




18 


DIMENSION A(27),AI(19) . 20 

C0NST=2. 0*59. 141053*1. OE-15 21 

SPHERE=4.0*3.1415927*R**2 22 

C=49.02*S0RT(T+459.67) 23 

RH0=0. 0023769*518. 688/(7+459. 67)*BAR/29. 92 24 

F=3. 1415927/180.0 25 

NFT=1 26 

NLT=NM 27 

SUM=0.0 28 

IF (AI (D.GT.O.O) GO TO 1 29 

SUM=SUM+10.0**<A(1)/10.G) 30 

NFT=2 31 

1 IF ( AI (NM) .LT. laO.O) GO TO 2 32 

SUM=5UM+10.0^*( A(N«)/l j.O) 33 

NLT=NM-1 34 

2 SUM=TAN(DT/4.0*F )*SUM/2.0 35 

DO 3 J=NFT,NLT 36 

3 SUM=SUM+10.0«*(A( J)/10.0)»SIN(AI(J)*F) 37 

W=CONST/(RHO«C )«SPHERE«SIN(DT/2.0*F)#SUM 38 

PWL=13C.0+10.0*AL0G10CW» 39 

RETURN 40 

END • ; . 41- 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

. c 
c 


SUBROUTINE SIDLAT (NM , A I ♦ RSTD, S I D I ST , $ I NAT , R ADI ST ) 
/SIDLAT - SIDLINE ATTENUATION/" 


♦ 4t « ♦ 

4c4c4ct4c4c«4ci4c4c 

4i4c4c4c4:4c4:4c4c4c4c4c4c 

« ♦ ♦ 

♦ * ♦ ♦ 

3 





* 

4 

utility 

ROUTINE TO COMPUTE 

SIDELINE -R/SDI'AL DISTANCES 

AND 

♦ 

5 

ATTENUATIONS FOR ALL ANGLES 

. 


♦ 

6 





♦ 

7 

NM 

NUMBER OF ANGLES 



♦ 

■ 8 

AI 

ANGLES 



4: 

9 

RSTD 

ARC RADIUS ABOUT 

SOURCE 


♦ 

10 

SIDIST 

NORMAL DISTANCE, 

SOURCE CENTERLINE TO PARALLEL 

4t 

11 


SIDELINE 



♦ 

12 

SINAT 

INVERSE SQUARE ATTENUATIONS IN DECIBELS, 


4: 

13 


ARC TO SIDELINE 



4: 

14 

RACIST 

RADIAL DISTANCES, 

SOURCE 10 SIDELINE 


♦ 

15 





♦ 

16 

i/i 

♦ 4:4t4!«4e**4i 

:Ce4:4t4t4:4:4:4E4s4c4T«A 

4f 4f 

4c * ♦ 4^ 

17 


38 


OIMENSIO'M- AI ( 19>, S INAT ( 19) ,RAOIST( 19) 18 

F=3. 1915927/18C.0 19 

RSO=20.0«ALOG10(S1DIST/RSTD) 20 

00 2 J=1,NM 21 

ST=SIn(AI ( J)*F ) 22 

IF IST.LE;0.0) GO TO 1 23 

SINATI J)=RSO-20.0*ALOG10( ST) 29 

RADIST(J)=SIDI ST/ST 25 

GO TO 2 26 

1 SINATI J)=0.0 . ; ^ ^ 27 

RAOISTI J)=0.0 28 

2 continue ‘t 29 

RETURN 30 

END ■ 31- 


SUBROUTINE TABLE (RSTD.SD) 


c 



/TABLE' - TABLE OF DATA FOR REPORTING/ 





2 

c 


4 ^ ^ 



♦ # 

if 

* 

3 

c 

♦ 






♦ 

4 

c 

Jit 

READS WORKING DATA AND PREPARES A TABLE OF NOISE DATA IN 

A 



♦ 

5 

c 


FORMAT SUITABLE FOR REPORTING PURPOSES. DATA INCLUDES 




♦ 

6 

c 


standard- 

DAY 1/3-OCTAVE BAND AND OVERALL SOUND PRESSURE 




♦ 

7 

c 


levels ON 

AN ARC, OVERALL POWER LEVEL AND POWER' SPECTRUM, 





8 

c 


CORRESPONDING SIMPLE SOURCE SOUND PRESSURE LEVELS, AND 





9 

c 


OPTIONAL. 

PERCEIVED NOISE LEVELS ON SEL ECTED . S I DELI NES . 




♦ 

10 

c 








11 

c 


NOTE 





♦ 

12 

c 


PROGRAM 

LOGIC AND FORMAT STATEMENTS CODED FOR NB = 3, AND 


♦ 

13 

c 

❖ 

NM = 16 

. COOING MUST BE REVISED FOR OTHER CONDITIONS. 




, ♦ 

14 

c 

♦ 






* 

15 

c 


RSTD 

RADIUS FOR WHICH DATA TO BE PREPARED 





16 

c 


SO 

OPTIONAL SIDELINE DISTANCES FOR PERCEIVED NOISE 



♦ 

17 

c 







♦ • 

18 

c 


CALLS . 

ASMBL, AVSLR, DBSUM, FARDTA, PNDB, WDATA 





19 

c 







. 

20 

c 


if. if if. if. if. 


if 

♦ ♦ 

if 

* 

21 



COMMON /WD/A(20,4) , NCONF , RPM , PCS , NF, NM, NB , PWL , SUMN , PSM I 2 7 ) , 

OT, 



22 



1 AI(19),NFIL(27),0I{27, 19) 





23 

c 

♦ 

if. If. tf if. if 

if if if if if if if if if 'if if if if if if if if if if if tf if if 

if. 

if if 

if 


24 

c 

♦ 






♦ 

25 

c 


variables 

IN COMMON BLOCK /WO/ 




♦ 

26 

c 







♦ 

27 

c 


A(20,4) 

FOUR CARDS OF ID (WORD LENGTH 4) . 





28 

c 


NCCNF 

CONFIGURATION NUMBER 




♦ . 

29 

c 


RPM 

SPEED IN RPM 




if 

30 

c 


PCS 

PERCENT SPEED 




♦ 

31 

c 


NF 

NUMBER OF FREQUENCY BANDS 




♦ - 

32 

c 


NM 

NUMBER OF ANGLES 




♦ 

33 

c 

♦ 

NB 

1/NB-GCTAVE'BANDS 





34 

c 


PWL 

OVERALL ACOUSTIC POWER LEVEL 





35 

c 


SUMN 

DECIBEL SUM OF NORMALIZED POWER SPECTRUM 





36 

c 

♦ 

PSM(27) 

NORMALIZED POWER SPECTRUM 




♦ 

37 

c 


DT 

ANGLE INCREMENT 





38 

c 


AK 19) 

ANGLES' ‘ 




♦ 

39 

c 


NFIL(27) 

BAND CENTER FREQUENCIES 




♦ 

40 

c 


01(27,19) 

DIRECTIVITY INDE-X 




if 

41 

c 








42 

c 


if if if if if 

if if if ififififif ifififififififififififififififif 


if if 

if 


43 


39 



dimension SL(27, 19), 0ASPL(19),SLK(27, 19), PW<27>,AVSPL(27), AA 

ISLSI27, 19) ,PNL ( 19) ,B( 19) ,OASL( 19) ' 45 

DIMENSION lAK 19),SD(5) , , . . A 6 

C A7 

CALL WOATA 48 

C « * 50 

C INPUT DATA REQUIRED ' ♦ 51 

C * « 52 

Cv «= ONE SET OF WORKING DATA FOR EACH SUBROUTINE CALL. * 53 

C . * • ■ * 5A 

«*«««<!«*♦ «*****«**«<t*******<i«i**«**-* 55 

CALL ASMBL (RSTC.SL) 56 

, DO 2 1=1, NF 57 

00 1 J=1,NM 58 

1 BU)=SL(1,J) 59 

2 CALL AVSLR ( B, A 1 , DT , NM , AV SPL I I ) ) 60 

DO 3 J=1,NM 61. 

3 CALL DBSUM ( SL ( 1 , J ) , NF , OASL ( J ) ) 62 

CALL AVSLR ( OA SL , A I , DT , NM, AVGOA ) .. 63 

CALL FARDTA ( S L , RS T D, N F , N8 , NM, A 1 , 59. 0, 70 . 0 J RSTD, 0 , SLR ) ■ ’ 6 A 

DO A J=l,NM 65 

A call URSUM fSLRd, J)',NF,0ASPL( J) ) 66 

DO 5 1 = 1 , NF 6'7 

5 PW( I ) = PWL-SUMN + PSM( I ) : 68 

WRITE ( 6 , 6 ) ' ■ ' ■ 69 

6 FORMAT (1H0,23X,87HDATA ADJUSTED TO STANDARD DAY Of= 15 DEGREES C; , 70 

170 PERCENT RELATIVE HUMIDITY ... 71 

WRITE (6,7) ' ’ 72 

7 FtDRMAT ( IH ,35X,20HSPL RE .00002 N/SO M, lOX, 18HPWL RE .1 PICOWATT) , 73 

DO 8 I= 1 ,NM 7A 

8 lAI ( I ) =AI ( I ) 75 

WRITE (6,9) ■ ' . ‘ ' ' ■ . 76 

9 FORMAT (lHOnX,9HFREQUENCY,A6X,10HANGLE, OEG,A5X,6HSIMPLE,2X,5HPOW .77 

1ER/112X,6HS0URCE,2X,5HLEVEL) . . 78 

WRITE (6,10) ( lAK I),i=l,NM) . 79 

10 FORMAT (IH ,10X,17I6I 80 

'■ * RMETER=RSTD*0.30A8 , 81 

WRITE (6,11) RMETER ■ . 82 

11 FORMAT ( 1H+,113X,3HSPL,3X,5H(PWL)//30X,A6H1/3-0CTAVE BAND SOUND PR ,• 83 

lESSURE LEVELS ( SPL ) ON , F6.1, 13H MET ER RADIUS// ) ' , ... 8 A 

: DO 13 i'=1,'nF ■ ■ . ' . 35 

WRITE (6,12) NFIL( 1 ) , ( SLR( I , J) , J=l,NM) ,AVSPL ( I ) ,PW( 1 ) , : - 86 

12 FORMAT (IH ,IX,I8,2X,16F6.1,1X,2F8.1) 87 

1^3 IF (M00( I ,3) .EO.O) WRITE (6,1A) , . , 88 

lA FORMAT ( IH ) ' ' 89 

WRITE (6,15) (OASPL( J) ,J= 1 ,NM) , AVGOA, PWL . 90. 

15‘ FORMAT (IH , 3X , 7H0VERALL , IX , 16F6 . 1 , IX , 2F8 . 1.) ,,, 91 

DO 16 1 = 1,5 , 92 

IF (SU(I).LE.O.O) GO TO 17 ,93 

16 CONTINUE . . ■ . ■ 9A 

• ■ IS = 5 9 5 

'■ GO TO 16 96 

17 IS'=I-1 ,. 97 

- IF (IS.'LE.O) RETURN . ' 98 

18 CONTINUE gg 

WRITE (6,19) ' 100. 

19 FORMAT ( 1H0,2X ,3HDISTANCE,35X,31HSIDELINl PERCEIVED NOISE LEVELS// 101 

7 i> " ’ . • 102 

DO' 21 1 = 1 , IS ’ ' ■ • . 103 

CALL FARDTA ( S L , R S TD , NF, N 8 , NM, A I , 59. 0 , 70 . 0 , SD ( I ) , 1 , SLS ) lOA- 

do' 2 ’ .J=1,,.NM. ... 105 


^0 


fvj m 


2C 

CALL PNDB (N8,SLS( 1,J),PNL(J),0) 


106 


SDM = SL/( I )*0.30A3 

*■ ■ . 

107 

2.1 

WRITE (6,22) SDM, ( PNL( J) , J=I,NM) 


10:8 

22 

FORMAT (IH ,F6.1,2H M,3X,19F6.1) 


109 


RETURN . ••••• 

• • • . 

IID 

’ • 

END 

V. - : ■ . ' 

111 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


A 

5 

6 


SUBROUTINE TBLOP ( A, NF , NF IL , MM, NEC ) % . 

/T8LOP - TABLE OUTPUT/ 

«: ♦ 

=<= UTILITY ROUTINE TO OUTPUT DATA ARRAY. ♦ 

♦ ♦ 

A DATA ARRAY * 

« NF NUMBER OF FREQUENCY BANDS ♦ 

« NFIL BAND CENTER FREQUENCIES ♦ 

« NM NUMBER OF ANGLES ' 

♦ NEG OUTPUT CONTROL. IF NEG -EQUALS ZERO, ALL NEGATIVE « 

♦ VALUES IN ARRAY A WILL BE KEPL ACED . WI TH ZERO FOR • • « 

♦ EASE OF READING. IF NEG IS OTHER THAN ZERO, ARRAY « 

♦ IS unaffected. ' . .. / . - • !. • ♦ 

« ♦ 


# 4c 4c 4 .« « 4c * • ♦ ♦ 4c 4c ♦ ♦ 4c * 4c -4c - 4c ^ 4c « 4; 4c 4c 4c 4c 4c > 4c 4c 4c 

DIMENSION A(27, 1.9.) . ....... . ; 

DIMENSION NFIU27) . • . . . s - . 

IF (NEG.NE.O) GO TO 2 .. . E '■ 

DO 1 J^1,NM , ' ; - . . ^ c ■ ' - ^ ' ' ' 

DO I I=^1,NF 

IF ( A( I , J) .LT.0.0) A(I,J)=0.0 

CONTINUE ; 

WRITE (6,3) 

FORMAT (15H BAND FREQUENCY) ' • • 

DO A 1^1, NF 

WRITE. (6,31 I, NFIL(.I),(A(I,J).,J=l,NM) . 

FORMAT (IH ,I3,I8,3X,19F6.1) 

WRITE (6,6) 

FORMAT (//) , . ... ‘ ‘ 

RETURN . ' - , . ; - - . : . . ^ ' •:.■>.*•. * 

END ' ' ' 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

lA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 

31 
32- 




SUBROUTINE TITLE ( A,NCONF,RPM,PCS ) 

C /TITLE - TITLE OUTPUT/ 

Q 4:4t^^;fr4c4c«4c44c4c4c«4c4c44c4c4c«4c4c4c*4c**4c4c4c4c4c*4c 


C « ♦ 

C « UTILITY ROUTINE TO OUTPUT ID INFORMATION. * 

C ♦ ^ 

C « A FOUR ID CARDS ♦ 

C ♦ NCCNF CONFIGURATION NUMBER ♦ 

C KPM SPEED IN RPM . • ‘ * 

C « PCS PERCENT SPEED ♦ 

C 4 • • • ‘ ♦ 


X 4c4c4t4c«4c«4c4 4c]^4c«4:4c. 4c4c4c4c4c4:4c4c«4c4c4c4c4c 4c4*«i'« 


1 

2 

3 

A 

5 

6 
7 
•8 
9 

1-0 

11 

12 


41 



DIMENSION A(20,A> 13 

WRITE (6,1) 1^ 

1 FORMAT (IHl) 15 

2 FORMA! (IH ,?0AA) 16 

WRITE (6,3) (A( J,1 ),J=1, 20) ,NCONF 17 

3 FORMAT (IH , 20 A A , 1 7X , 1 6HC0NF I GURAT I ON NO, 15) 18 

WRITE (6, A) (A( J,2),J=l,2u),RPM 19 

A FORMAT (IH , 20 AA , 1 7X , 7HSPCED =,F6.D,AH RPM) 20 

WRITE (6,5) (A( J,3), J=1,20),PCS 21 

5 FORMAT (IH , 20 A A , 1 7X , 1 5HPERCEN T SPEED =,F6.1) 22 

WRITE (6,2) (A( J,A),J=1,20) 23 

WRITE (6,6) 2A 

6 FORMAT (//) 25 

RETUR^4 ' 26 

END ‘ 27- 


subroutine TITLE2 

C /TITLE2 - title OUTPUT/ 

c « * 

C * UTILITY ROUTINE TO OUTPUT ID INFORMATION* * 

C « * 

COf'MON A(20,4»2) ,AI( 19,2),NFIL(27,2),NCONF(2) ,RPM(2) ,PCS(2) f 
I NR(2)tNF(2)*NM(2),0T( 2) 

DIMENSION SET(2),AIL(2),IFIL«2) 

DATA SET(l),SET(2)/3HONE,3HTWO/ 

DO 1 K=L,2 
J=NF(K) 

IFlL(K)=NFIL<JfK) 

J=NM(K) 

1 AIL(K)=AI( J,K) 

WRITE (6,2) 

2 FORMAT (IH ,36X,53HC OMPARISON OF TWO DATA S 

1 E T S////) 

DO 3 K=1 ,2 

3 WRITE (6tA) S£T(K),(A{ I,l,K),I = l,20)t(A(I,2,K),I = l,2j),NCONF(K),PC 
1S(K) ,KPM(K) , ( A( I ,3,K ) , 1 = 1,20 ),NF(K),N8(K ) #NF IL( IfK ) , IFIL(K ) , ( A( I , A 
2,K) , 1 = 1 ,20) , NM( K ) ,DT(K) , AI ( 1,K ) ,AIL(K) 

A FORMAT (IGH DATA SET ,A3,/1H , 20AA, 5X, 38HC0NF IGURAT I ON PERCENT 

1 SPEED RPM/IH ,20AA, I12,F20.1,F13.0/1H ,20AA,I7,5H - 1/,I1,18H 
20CTAVE BANDS FROM, 15, 3H T0,I6,6H HEKTZ/IH ,20AA,I7,13H ANGLES. EVER 
3Y,FA*0,L3H DEGREES FRQM,F5.0,3H TO,F6*0//) 

RETURN 

END 


1 

2 

3 

A 

5 

6 

7 

8 
9 

ID 

11 

12 

13 

lA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 
29- 


subroutine wdata 

C /WDATA - WORKING DATA/ 

c. * 

C - READS ONE SET OF WORKING DATA FRUM 
C' ^ COMMON BLOCK /WO/, 

C 


1 

2 


♦ A 

CAROS INTO STORAGE * 5 

♦ 6 

♦ 7 


42 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c - 

c 

c 

1 

2 


CO^mUi /WD/A(20,^) ,NCGiNF,RPMtPCS,NF,NM♦^^ltitPWL,SU^<^4,PSM(27) ,or, 
1 M ( 19),. NFIL(27), 01(27,194 

VARIABLtS RESULTING IN COMMON CLOCK /WO/ 


9 

10 
11 


A(20,4) FOUR CARDS OF 10 (HURD LENGTH 4) 

NCCNF CONFIGURATION NUMBER 

RPM SPEED IN RPM 

PCS PERCENT SPEED 

NF NUMBER OF FREQUENCY BANDS 

NM NUMBER OF ANGLES 

NB 1/NB-GCTAVE BANOS 

PWL OVERALL ACOUSTIC POWER LEVEL 

SUMN DECIBEL SUM OF NORMALIZED POWER SPECTRUM 

PSM(27) NORMALIZED POWER SPECTRUM 

DT ANGLE INCREMENT 

AK19) ANGLES ’ 

NFIL(27) BAND CENTER FREQUENCIES ' 

DI(27,19) directivity INDEX 

DO 1 J=l,4 ■ 

READ (5,2) ( A( I ,J) ,1=1 ,20) 

FORMAT (20A^) ' ' . 

READ (5,3) NCONF,RPM,PCS,NF,NM,NB 
FORMAT ( I^,2F8. 1,313) 

IF (NF.EQ. 10) GO TO 5 

READ (5, A) PWL jSUMN, (PSM( I ) , I=1,NF) 

FORMAT ( 12F6.1/ ( 12X, 10F6. 1) ) 

GO TO 7 

READ (5,6) PWL ,SUM,(PSM( I ), I=1,NF) 

FORMAT (12F6;1) 

REAO (5,6) DT, (AI( J) ,J=1,NM) 

DO 11 I=1,NF 

IF (NM.EQ.IO) GO TO 9 

READ (5,3) NFI L( I ) , ( DI ( I , J) , J=1,NM) 

FORMAT (6X, 16, 10F6. 1/ ( 12X,10F6.1) ) 

GO TO 11 

READ (5,10) NF IL( I ) , (DI ( I , J) , J=1,NM) 

FORMAT (6X,I6, 10F6.1 ) 

CONTINUE 

RETURN 

END 



10 

♦ 

11 

♦ 

12 

« 

13 


14 

♦ 

15 


16 


17 


13 

♦ 

19 


20 

♦ 

21 

4c 

22 

* 

23 

♦ 

24 

♦ 

25 


26 

♦ 

27 


28 

♦ 

29 

♦ 

* 30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 

i 

42 


43 


44 


45 


46 


47 


48 


49 


50 


51 


52- 


SUBROUTINE WODAG 

C /WODAG - WORKING DATA GENERATION/ 


C 4^ ♦ 

C ^ STANDARDIZES MEASURED DATA. PREPARES DATA LISTINGS. PUNCHES * 

C # WORKING DATA. * 

C # . ♦ 

C ff CALLS angle, APNDB, AVSLR, BASPAT, OBSUM, GRAPH, * 

C OASPL, POWER, SIDLAT, TBLOP , TITLE ♦ 

C ♦ 


CQMMCIN /wUUA/A ( 20, <|) ,NCONF,R?M,PCS,SL( 27, 191 , T,RH, fiAK , AO, DT , R ( 19 ) , 
lNM,)NF,Nb,RSTD, SC(5) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 
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c 


« « « « « * « «'« « « » « «« ».«« * * 



14 

c 

♦ 



♦ 

15 

c 

♦ 

VARIABLES NECESSARY IN COMMON BLOCK /WODA/ 



16 

c 



- 


17 

c 

♦ 

A(20,4) FOUR CARDS OF ID (WORD LENGTH A) 


♦ 

18 

e 


NCCNF CONFIGURATION NUMBER 



19 

c 

♦ 

RPM SPEEO IN RPM - 


♦ 

20 



PCS PERCENT SPEED 


♦ 

21 

c 

* 

SL(27,19) MEASURED ARRAY (TEST DAY SOUND PRESSURE LEVELS) 

4^ 

22 

C’ 

♦ 

T" TEST TEMPERATURE (DEGREES FAHRENHEIT) 


4t 

23 



RH TEST RELATIVE HUMIDITY 



24 

c 

❖ 

BAR TEST BAROMETER (INCHES HG) 


♦ 

25 

c 

♦ 

AO FIRST MICROPHONE ANGLE 



26 

e- 

♦ 

DT MICROPHONE ANGLE INCREMENT 


♦ 

27 

c 

♦ 

R(19) MICROPHONE-RADII - 


♦ 

28 

c 


NM NUMBER OF MICROPHONES 


♦ 

29 

c 

♦ 

NF NUMBER OF FREQUENCY BANOS 


4c 

30 

c 


NB KIND OF FRACTIONAL-OCTAVE BANDS (1 OR 

3 ) 


31 

c- 

♦ 

RSTD STANDARD RADIUS FOR DATA LISTINGS 



32 

c 


SD(5) OPTIONAL SIDELINE DISTANCES FOR DATA 

EXTRAPOLATIONS 

♦ 

33 

c 

♦ 



♦ 

34 

c 

♦ 

^ tf * if * * * * ********«^t^^*«** 


♦ 

35 



DIMENSION BUF(27,19),TFA(27,19) 

• . - . . 


36 



DIMENSION AI(19),AM( 19) .. 



37 



DIMENSION B(27) ,C(27) ,D(27),E(27),NFIL(27),SLR(27) 


38 



DIMENSION DS(6 ) 



39 



INTEGER FREQC27) 



40 



DATA FREQ/50,63, 80,100, 125, 160,200, 250 f 315, 400, 

500,630,800,1000, 


41 



1 1250,1600,2000,2500f 3 150, 4000 1 5000, 6300, 8000* 10000,12500, 16000, 


42 



2 20000/ 



43 

c 





44 

c 


DEFINE NUMBER OF SIDELINE DISTANCES '' 


■ 

45 

G 





46 



DO 1 1=1,5 



47 



IF (SD(I ).LE.O.O) GO TO 2 



48 

1 


CONTINUE 



49 



NR = 5 - ^ - ■ ; ; : 



50 



GO TO 3 



51 

2 


CONTINUE 



52 



NR=I-1 . ^ 



53 

3 


CONTINUE 



54 

C 





55 

X 


DEFINE BAND CENTER FREQUENCIES 



56 

C 





57 



DO 4 1=1, NF 



58 



J=I 



59 



IF (NB.EQ.l) J=3«I-l 



60 

4 


NFIL( I ) = FREQ( J ) 



61 

C 





62 

C 


DEFINE MICROPHONE ANGLES 



63 

c 





64 



DO 5 1=1, NM 



65 

5 


AI n ) = AO+DT*FLOAT( I-l) 



66 

C 





67 

C 


SIMPLY ADJUST TO CONSTANT RADIUS FOR REVIEW 

ONLY 


68 

C 





69 



DO 6 J=1,NM 



70 



DL=20.0*AL0G10 (R( J)/RSTD) 



71 



DO 6 I=1,NF'^ 



72 

6 


SL(I,J)=SL(I,J)+DL 



73 

C 





74 

;C 





75 

C 


PAGE ONE 

1 ■ - 


76 


44 


C >!f ASUKa.) A <aAY 77 

C 78 

WKITl (6,7) 79 

7 FORMA I n HI) 8'.i 

DO 9 J=1,A 81 

8 WKITE (6,^) (A(I,J),I=1,20) 82 

<5 format { 26X,20AA// ) 83‘ 

WRITE (6,10) NCONF ,RPM,PCS 8A 

10 -FORMAT (16X,16HC0NriGURATI0N NO , I 6 , lOX , 7HS PEED =,F6.0,AH KPM,10X,1 85 

15HPEKCENT SPEED =,F6.1//) 86 

WRITE (6,11) T,RH,HAR 87 

11 FORMAT (10X.17HTEST CONDITIONS 7X, 13HTEMPERATURE =,F5.r,2H F,6X, ' 88 

119HRELATIVE HUMIDITY = , F5 . 1 , 3H PC , 6X , 1 IHbAROMETER =,F6.2,6H IN HG/ 89 

2//) ' 90 

WRITE (6,12) RSTO 91 

12 FORMAT (52X,27HM EASURED ARRA Y,//37X,A1HMEASURED .DATA . 92 

ISIMPLY ADJUSTED TO CONSTANT , F6 . 1 , lOH FT RADIUS//) . 93 

CALL ANGLE (AI,NM) 94 

CALL UASPL (SL,NM,NF,B) 95 

WRITE (b,l3) ( B( I ) ,1 =1,NM) 96 

13 FORMAT (15H COMPUTED 0 ASPL , 1 9F6 . 1 ) 97 

WRITE (6,14) 98 

14 FORMAT (/) 99 

CALL TBLOP ( SL , NF , NF I L , NM, 1 ) 100 

WRITE (6,15) (R(1),I=1,NM) 101 

15 FORMAT (4BX,31HCRIGINAL MICROPHONE RADII, FEET//15X, 19F6. 1 ) 102 

C 103 

C 104 

C PAGE TWO ■ 105 

C TEST DAY ATMOSPHERIC ABSORPTION 106 

C 107 

CALL TITLE ( A, NCONF , RPM, PCS ) 108 

DO 16 J=1,NM 109 

CALL BASPAT ( S L ( 1 , J ), R STD , NF , NB , T , RH , B , RSTO , C ) 110 

DO 16 1=1, NF 111 

BUF(I,J)=D(I )4R(J)/1000.0 ■ • 112 

16 SL( 1 , J ) = SL( I , J ) ♦BUF( I , J) 113 

WRITE (6,17) T,RH 114 

17 ■ FORMAT (27X,77HT EST DAY EXCESS ATMOSPHERI’ 115 

1C ATTENUATIO N// 34X , 62HAD0 I T I ONS TO UNADJUSTED MEASURE 116 
2D DATA TO OBTAIN REFERRED ARRAY//49X , 33HTEMPERATURE RELATIVE H 117 

3UMIDITY/46X,F10.0,2H F , 1 2X , F 5 . 1 , 3H PC//) 118 

CALL ANGLE ( AI ,NM) 119 

CALL TBLOP (BUF,NF,NF1L,NM, 1) 120 

C 121 

C 122 

C PAGE THREE 123 

C REFERRED ARRAY 124 

C 125 

CALL TITLE ( A, NCONF, RPM, PCS ) 126 

WRITE (6,18) RSTO 127 

18 FORMAT (52X,27HR EFERRED ARRA Y// 38X , 7H0AT A AT,F6.1,42H 123 

1 FT RADIUS WITH NO ATMOSPHERIC AT T ENUAT ION/ 45X , 40H ( FOR POWER AND, D 129 

2IRECTIVITY COMPUTATIONS)//) 130 

CALL ANGLE (AI.NM) 131 

CALL UASPL (SL,NM,NF,E) 132 

WRITE (6,13) ( E( I ) , I=1,NM) 133 

WRITE (6,14) 134 

CALL TBLOP ( SL ,NF,NFIL,NM, 1 ) 135 

C 136 

C - 137 

C PAGE FOUR ■ ' 133 

C acoustic POWER COMPUTATIONS 139 


45 



c 1^:-^ 

c CUM-PUTfc total POW'cR 141 

C 142 

CALL Pil'ACH lE,RSTD,Al,NM,ijT,T,H,Aft,PWL,W> 143 

CALL AVSLR ( £ , A 1 , DT, NM , SL RO ) 144 

C 145 

C COMPUTE POWER SPECTRUM , 146 

C . 147 

DO 20 1=1, rjF . 14P, 

DO l‘J J = 1,NM 149 

19 8(J)=SL(I,J) 150. 

CALL POWER (B,RSTD,AI,NM,DT,T,BAR,PW,D) 151 

20 C(I)=PW • ^ 152 

CMAX=0 .0 153 

; DO 21 1=1 ,NF - . . . , 154 

IF (C(I I.GF.CMAX) CMAX=C( I) , • ' . . 155 

21 ■ continue * . ; ' . • 156 

DO 22 1 = 1, NF . ! . . 157 

22, B( I ) =C( 1 I-CMAX • , ■ : i , 1158 

CALL DBSUM (B,NF,SUM) ; 159. 

DO 2^4 I =1 , NF : . . 160 

DO 23 J=1 ,NM 161 

23. D(J)=\l( I,J) , , . . . 162 

2.4 ■ CALL AVSLR ( D, A I , OT, NM , SLR ( I ) ) 163 

CALL TITLE ( A, NCONF, RPM, PCS ) ' ' 164 

WRITE (6,25) RSTD 165 

25 FORMAT (40X,53HA COUSTIC POWER COMPUTATION 166 

1 S//,73X,10HNORMALIZED,lOX,6HSIMPL£/29X,4HBAN0,8X,9HFRC0UENCY,4X,3 167 
21HP0WER SPECTRUM POWER SPECTRUM , 5X , 1 5HSUURCE SPL t R =,F6.1,3H FT 168 
3//) 169 

DO 26 1=1, NF 170 

26 write (6,27) I , iNF I L( I ) , C ( I ) , B ( I ) , S LR ( I ) 171 

21 format (30X,I2,I16,3F17.U 172 

write (6,28) SUM,SLRO 173 

28 FORMAT ( /7 5X , F 7 . 1 , 6H OVERALL , F9 . 1 , 8H OVERALL) 174 

write (6,29) 175 

29 ' FORMAT (/,55X,20HT0TAL ACOUSTIC P0WER/72X , 3H- 13 ) 176 

write (6,3G) PWL,W 177 

30- format (52X,5HPWL =,F6.1,16H DB RF 10 WATT//58X, 3HW =,F7.1,6H WA 178 

ITTS/ > 179 

C - . 180 

C PUNCH HEADER AND POWER DATA 181 

C 182 

DO 31 J=l,4 183 

31 : PUNCH 32, ( A( I , J ) , 1 = 1 , 20) 184 

32 format (2DA4) 185 

PUNCH 33, NCONF, RPM, PCS, NF,NM,NB 186- 

33 ■ FORMAT (14, 2F8. 1,313) 187 

IF (NF.EO.IO) GC TO 35 183 

PUNCH 34, PWL,SUM, (8( 1 ), I=1,NF) 189 

34 format (12F6,1 / ( 12X, lpF6., 1 ) ) . . , .... ' . ' 190 

GO TO 36 .191 

35 PUNCH 41, PWL,SUM, (6( I ), I = 1,NF)' 192 

36 CGNTINUE 193 

C ... 194 

C‘ 195 

C PAGE FIVE 196 

C_ .NORMALIZED POWER SPECTRUM (GRAPH) 197 

C 198 

CALL TITLE ( A, NCONF, RPM, PCS ) 199 

CALL GRAPH (B,NF) 209 


46 ' 



C . 2-')l 

C ' 202. 

C PAGE SIX 20J 

C OIKECTIVITY HvDEX, 204 

C 205. 

CALL TITLE (A,NCCNE,KPM,PCS> 206 

WRITE (6,37) . - 207 

37 FORMAT (5*. X,33HD IRECTIVITY INUE X//) ' 208 

CALL A.'JGLc (AI,t-iM) 209 

DO 38 I =1 ,NF ■ • .. - . . 210 

DO 38 J=1,NM .211 

38 BUF ( I , J ) =SL( I , J)-SLR( I ) 212 

CALL T8L0P ( BUF,NF,NFIL,N.M, 1 ) 21-3 

CALL AVSLR (E, A1,DT,.NM,DI0) 214 

DO 39 J=i,NM 215 

39 E( J)=G(J)-UIO 216 

WRITE (6,40) (E(J),J = 1,NM) • 217 

40 FORMAT ( 8X , 7H0VERALL , 19F6. 1 ) 218 

C PUNCH ANGLES, DIRECTIVITY INDEX 220 ^ 

C ... - 221 

PUNCH 41, DT, ( AI ( J ),J=1,NM) • - . . • 222 

41 FORMAT (12F6.1) 223 

DO 45 1=1, NF 224 

IF (NM.EQ.IO) GO TO 43 225 

PUNCH 42, I ,NF IL( I ), (BUF ( I , J ) , J = 1,NM) 226 

42 FORMAT ( 2 1 6 , 10 F6 . 1 / 1 2X , 10F6 . 1 ) 227 

GO TO 45 228. 

43 PUNCH 44, I , NF I L ( I ) , ( BUF ( I , J ) , J = 1 , NM ) ■ - ■ 229. 

44 FORMAT (2I6,10F6.1) 230 

45 CONTINUE 231 

C. 232 

C 233 

C . PAGE SEVEN 234 

C ATMOSPHERIC ATTENUATION 235 

C 236 

C , COMPUTE THOUSAND FOOT EXCESS ATTENUATION 237 . 

C, . . 238 

DO 46 J=1,NM 239 

46. CALL BASPAT ( SL ( 1 , J ) , RSTD, NF , NB , 59 . 0 , 70 . 0 , TF A ( 1 , J ) , RSTD , 8 ) 240 

C 241 

call title ( A,NC0NF,RPM,PCS) 242 

WRITE (6,47) 243 

47 FORMAT (43X,45HA TMOSPHERIC ATTENUATIO N//35X, 244 

161HSTANUARD DAY EXCESS ATMOSPHERIC ATTENUATION PER THOUSAND FEET// 245 

2.37X ,56HC0MPUTED FROM REFERRED ARRAY CONSIDERING SPECTRUM SHAPES//) 246 

CALL ANGLE (AI,NM) 247 

CALL TBLOP ( TF A , NF , NF I L , NM , 1 ) 24,8 

C , , 249 

C 250 

C. PAGE EIGHT 2.51 

C STANDARD DAY DATA ATMOSPHERIC ABSORPTION 252 

C . 253 

CALL TITLE ( A , NCONF, R PM , PCS ) ■ . 254 

WRITE (6,48) RSTD ,, 255 

48 < format (16X,95HS TANDARD DAY DATA EXCESS A 256 

ITMGSPHERIC ATTENUATIO N/ /26X , 60HADJUSTME NTS T. 257 

20 REFERRED ARRAY TO OBTAIN STANDARD DAY DATA AT,F6.0,10H FT RADIUS 258 
3//) - ■ 259 

DO 49 J=1,NM 260 

DO 49 1=1, NF 261 

49 BUF ( I , J)=TFA(1 , J)«r<STD/lCO.' .0 262 

CALL ANGLE ( AI ,NM) ° 263 
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CALL rSLOP ( 8UF,NF,NFILt.MM» n 


PAGE MINE 

STANDARD DAY DATA 

CALL TITLE (A,NCOMF,RPM,PCSl 
write (6, SO) RSTD 


write (6, SO) RSTD 

format (^ex,33HS TANDARU DAY OAT A// 43X , 7Hl)A T A AT, I 
1.1, 30H FT RADIUS UN S9F, 7TPC RH DAY//) 


DO 51 J=1,NM 
DO 51 1=1, NF 

BUF(I,J)=SL{I, J)-BUFII,J) 

CALL ANGLE ( AI ,NM) 

CALL OASPL (HUF,MM,NF, B) 

WRITE (6,13) ( B( I ) ,I=1,NM) 

WRITE (6,14) 

CALL TBLOP (BUF,NF,NFIL,E4M,1) 
WRITE (6,14) 

WRITE (6,52) RSTD 


WRITE (6,52) RSTD 

FORMAT (44X,iaHPERCEIVED NOISE ON,F8.1,17H FT RADIUS, PNDB//) 
CALL ANGLE ( AI ,NM) 


CALL APNOH ( BU F , N8 , NM , B ) 
WRITE (6,53) (6(1), 1=1, NM) 
FORMAT (15X,19F6.1) 


PAGE TEN AND FOLLOWING , ' . 

SIDELINE EXTRAPOLATED DATA ■ -- — • 

delete on-axis data ' -■ 

MM=NM . , . . , 

DO 54 J=1,MM 
AM(J)=AI(J) 

if (AM(l).GT.O.O) GO TO 56 

MM = MM-I ■ 

DO 55 J=1,MM , 

AM( J )=AM( J + 1 ) . . . T ' 

DO 551=1, NF 

SL ( I , J)=SL( I ,J + 1) 

IF (AM(MM).LT. 130.0) GO TO 57 

CONtlNUE ■ . . 

KK='NR+1 

DO 58 1=2, KK , . . 

DS( I )=SD( 1-1) 

DS(1)=RSTD 
DO 64 K=l, KK 

CALL title ( a, NC0NF,RPM,PCS ) 

WRITE (6,59) DS(K) /' 

. FORMAT (40X,52HS lOELINE EXTRAPOLATED D.ATA 
1 //23X,20HSTANDARD DAY DATA 0N,F7.0,59H FT SIDELINE, INCORPORATIN 
2G EXCESS ATMOSPHERIC ATTENUATION//) 

CALL SIDLAT (MM,AM,RSTD,OS(K),B,C) 

DO 60 J=1,MM 

DO 60' 1=1, NF ... 

BUF ( I , J)=SL( I, J )-R( J)-TFM I , J ) *C ( J ) / 1000 .0 
CALL ANGLE (AM, MM) 

CALL OASPL (BUF,MM,NF,C) 

WRIT£(6,13)(C(I),1=1,MM) 

WRITE (6,14) 
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CALL T6L0P ( 8UF , WF , NF I L , MM , 0 1 . . , _ 327 

• ' WRIT£-^(6,14) : • • . : • 32 8 

. . WRITE .(6,61, ) ,DS( i ) ,D.S{K ), (BU.) ■. • . - - • ■ ■ .,...329 

61' ' FORMAT' (30X,'35HlNVcRSE SOU ARE L' AW 'ATT ENU ATI UN' FROM , F 7 . 0, lAH FT ' RA' 330 

IDIUS T0,F7.0,13H FT S I DEL I NE// 1 5X , 1 9F 6il // ) • .. 331 

WRITE (6,1A) 332 

• . CALL 'A.PNUB..- (BU.F,NB,NM,B) . ..,.333 ' 

WRITE (6%62)’ DS'lkV ’ ' 334 

62 FORMAT {A5X,18HRERCEIVED NOISE ON , F7 . 0 ,.19H F T ' S lOELl NE , PNOB//) 335 

CALL ANGLE (AM,KM1 336 

,;WRIT£ (6*63) (B(I.)fI=lfMM) . • - : . 337 

63 FORMAT (15X,19F6.1) 338 

IF (NR.LE.O) GO TO 65 ' ' . ' 339 

64 CONTINUE 340 

65 WRITE (6,7) 341 

C 342 

RETURN 343 

END 344- 


/ 
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TABLE I. - Continued. SAMPLE OUTPUT FROM WORKING DATA GENERATION SUBROUTINE WODAG 
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TABLE I. - Continued. SAMPLE OUTPUT FROM WORKING DATA GENERATION SUBROUTINE WODAG 


o 

o 


O Q. 

Z ac II 

Z • O 
O O tu 
— O Lu 

»- 00 a 

< — I t,o 

a: 

3 II »- 

o z 

— • Q UJ 
U. UJ O 

z tu o: 
o tu 

o 


< 

z 


o 

nO 


o • 

m r- 

^ oo 


o • 

o • O' 

M ^ 00 

cC 

tu 

X • 


o 

z 


o 

(M 


ooO'<^’' 4 ’-^co^^oO'OtAfOiMfOfnf^-^^-^cM'Ofn-^ocomO '0 

O'O^O'O'O'O'O'O'O'O'O'OO^O'O'Ainifi'#' 

oor%>tN 0 -^Q 0 i>'tr^tn' 00 'rgh.oa'> 0 >j'i^-H 000 'Oh“ 00 tn 

^^n^• 00 '^^A^^<<^^^J-^<^C^OO'®OOOC^^O<MoO•^OOt /^<>0 

r-h-h.®f«-r«-r»r^is.r«.r*. 


ocoio®^tAtn'Otntn^tojm«^m« 


QDGOf^rn®mO'fOf'JOf^>firn>o®-<®— *— 

o-^«rf^'Om»A' 0 'O> 0 iri,»^ir\in>j“> 0 Oh-O'<’<N-^iNiMoa* 0 ‘ 

>i-^r»rg®r\iio-^f^>Of^rn®m'^-^maoh-o-^'Oaofvior-fM 


o 

o 


o 

O' 


o 

z 

I- 

< 

oc 

o 

Q> 

0^ 

O 


o 

o 


o* 


tM 

O' 


-^cor*>f»-o^O'OrOsOsO^'^x>'-‘'to-^\riiritN»a'' 4 'r^'-*<NJO'— * 


>Of^<Ns0(Nf^-*cgr-r«*®®a'sJ-' 




®sOO>tT»'tiNNtfO"^rOm>J' 4 ’'/tiOOOa‘'TtO-*'t'fVO -^0 

0 > 0 'J 0 ^ 4 ''r-i^vmrM 0 . 4 ra<n -*0 4 ' 4 '-«N 0 ®ir» 0 '-Nv'M'-<a'O 0 > 
O'0’0r^(^r»r*-r^r^r^r«-r^r.r'.r'-r^®r^r'.®r^®®®^*®r** 




vO OOr^r^r^r«-r~’('“r*-f«-r^r>. r».r— f«.r»r«-r*-r»f*»i'»r-r'-p»f'-h“ 

f^rn' 0 - 40 oW’-*'Oi^<nm>r®*oo'-<OfOOro 33 >-ia'<MO 

s 0 iA'«TO'^<M 0 'OOOO-^(Njrr»'#-rgr^>^-inO' 0 r~r**<''*tn/>r^ 

• 0 'U'Uf'»r^p-«r^p»r^r»p^r>»p“r»r^'ur»(>«a>p»r»r-p».r»r-r» 


z 

a 


z 

u 


rnr*Or-<mirvm®i^tr> 0 'fM^-<a' 00 (Mr-'t®n®'^' 00 * 0 ' 

Nom>rr«-o-»®®CT ‘0 0 'o: 3 mfnromtntn®*nso>JOO>t'^^ 
•O'OUoi'^r^O'O ui'»or^,*>.r»r^r'»ujr«,r>'f-r<»r»i'**r-f'»r*r'» 

.'O un >0 » ® «M Ai sj* o JO -* -o f«. ® sO JO 4* o 3 rn -I 

o -N vN o r« Q r» X ® 3 o o -M .n .n m O' r- o m »A <r 4- 

XX 'O X xr^ x xx xi'*'r^r'*r-r'*r^’ur^r^f'“t^r^r»r->r^r»’^ 


z 

z 

< 


< 

■X 


X 

o 


o 


t>; -• 


m -X r» .x O' o m X X X o •'J' T* (M X X 4- ’-n ^ 

•N o o X X X f'* X O' m 'j' ^ n X t/* x > r- rt ^ 

XXXx-xxxxxxxxr>-r-t'*f^mr^r-r*f'*r»*r»r^t>.r-'N- 

® j' X .'n in <x T .ri >r X ut r«- 3 — j< Ni csi X rr >r ix ^ 

-0'«X'0'uXi'**!'«»xxr^i^r»p«.r»r— r^'UX-o 

X '4'. X > — o rg f 'j' -< X. >t o -X .n O O' 4" O -X x x rs; 

OX xo'O — — c3Lro;\— >xtO''*x'^X'u — xrw 
iXirt-ri-rix x'uxx'xx-x'xxxx.‘'-xxf'* xoxxxxm 


I >t I'- 'J' J' o c X 'j* r* X '"n r- 3s ,n o* 


'X 4“ o -X X n 


ro 'j* 3 m 4- 4 - 4- .n m rn vti rr O' O' 'J* j* O' *x ;p x «» *n x — o x 

•X> 4 4“ 4-» u\ -X* at U» a< a’ ifv If* ‘X iX O X »T X X jx. «' 4" 4 'X — 


X X t/; u. 

u. <1 </) 

<i a. 2 — 
■>’. i- i_» 

— u. •- Z 
- -4 -X -X 


-tr^.ncs'-jx'coCiTi'a'xo^'S^ooxcccjoccocc 
U> X o C\ X O X — c T O c X o o 'IS X C O O *;j 'J O -X o 
u — — — <x^m 4 'Xvoxc 5 '>‘«c 5 x-- 3 X(^t-;c;xcjc 

— (\r\n4'xx-xc:\xc 

X r\ 


Z 

<l 


a a 

I- * c z 
•a ti; X <i 

Z ^ X 4. 


Z — t\ .r 4 X X X 4“ o — rs 4 X X f'' ® 4 C — c\- .n 4 X x ^ 
<t — — — -N<Nrs,r>.rv->v:N.-\ 


60 


INVEftSt SQUARE LAK ATTENUATICN FROM 100 % FT RADIUS TO 100 % FT SIOELIHE 



TABLE I. - Continued. SAMPLE OUTPUT FROM WORKING DATA GENERATION SUBROUTINE WODAG 


— <£ 

u. ^ a 

w X — 

-a — <i 

^ X v_j 

w ^ 

Tf TC *X 

tL- <1 <y~. 

CL. ii — 


-• 

nj 

in 

X 

X 

-- 

® 

X 

rg X 

rg 

O' 

m 

® 

® 

O 

4 

3 

4 

4 

r'- 

4 

® 3 



O' 

fVJ 

nj 

O' 


tn 

X 

in rn 


o 

o 

o 

O' 

4- 


X 

X 

O' 

3 

4* 

Ji 

3 f- O 

O 

m 

tn 

X 

X 

in 

in 

tn 

in 

in tn 

m 

in 

tn 

in 

4 

4 

in 

4 

4 

4 

4 

3 

3 

rg 


m 

X 

in 

T! 

-. 

X 

m 

4 ® o 

r- 


O' 


-n 

m 

O' 

O 

O 

3 

O' 

O 

■AJ 

3 4® 

4 



m 

X 

X 

rn 

m 

rn 

—4 ^ 

O' 

r'- 

r- 

® 


tn 

4- 

m 

in 

® 

4 

z 

4 

rg eg <x 

3 

>o 

>0 

'« 

X 

X 

X 

X 

X 

X X 

-n n 

m 

in 

m 

in 

m 

in 

in 

3 

3 

3 

4 

4 3 3 


t\i 

O' 

o 

X 


rn 


X 

X X 

m o 

IM 

o 

o 

rg 

■n 

O' 

4 

O 

rg 

X 4 

.9 

.8 

O' 

<7* 

o 

4 

X 

tn 

4 

4 

4 

rn -n 

nj 



rg 

r'^ 

O' 

rg 

O' 

o 

X 

rg 

® 

X 

rg 4 4 


m 

X 

X 

X 

X 

X 

X 

X 

X X 

X X 

X 

X 

X tn 

X 

m 

X 

X 

X 

3 

3 

3 4 3 

nAJ 

'i* 


rn 

O' 

4 

o 

4 

® 

X 4 

X 

o 

X 

® 

® O' 

3 

3 

X 

4 

3 

4 

3 

3 0 3 

X 

(?• 

o 

m 

tn 

in 

4 

4 

4 

4 4 

m 

rn 

rn rn 

rg 

m 

® 

4 

X 

O 

4 

3 

O' 3 3 

4 

tn 

<o 

X 

X 

X 

X 

X 

X 

X X 

X 

o 

X 

X 

X 

X 

X 

X 

X 

4* 

X 

X 

X 

3 3 4 

3 

o 

X 

>-n 

® 

4 

X 


r'" 

® -» 


h- 


4- 

n 

m 

-- 

AJ lA 

AJ 

3 

3 

3 

® 3 

X 

X 

X 

z 

4 

X 

rn 

■n 

4 

m 4 

m 

ng 

m 

-*n 

m 

4 

o 

X 

® 


4- 

X 

3 

rg >0 

O 


•n 

o 

X 

X 

X 

X 

X 

X X 

X 

X 

X 

X 

X 

X 

r* 

X 

X 

4- 

X 

X 

X 

X 3 4 

4 

r«- 


O' 

-n 

n 

- 


® 

-1 o 

X 

n- 


4 

m 

O 

O' 

O' 

4 

X 

4 

n 

® 

3X3 

® 



a 

.■n 

4 

m 

fVJ 

rn 

3 rn 

nj 

<N 

.■n 

m 

4 

.n 


in 

4- 


X 

X 

3 

rg X 3 

AJ 

tn 

in 

o 

X 

X 

X 

X 

X 

X o 

o 

X 

X 

X 

X 

X 

fc- 

X X 

4* 

X 

X 

X 

X 3 3 

4 


m 

X 

nj 

X 

rg 

X 

r* 

?NJ 

nj 


nj 

X 

rg 

m 

X 

4 

4 

O' 

rg 

3 

-g 

X ® X 

X 


m 

X 

rn 

rn 

,-n 

o 


*\J f\» 

nj 

nj 


rg 

3 

3 

4- 

4 

X 


X 

X 4» 

AJ X 3 

3 

in 

m 

<n 

X 

o 

0 

3 

■X 

O X 

X 

X 

X 

O 

0 

X 

X 

X 

o 

4- 

X 

X 

X 

0 3 3 

4 

o 

O' 

-. 

m 

r- 

O' 

3 

m 

® rn 

m 

® 

o 

■O' 

m 

o 

X 

3 

® 

3 

4 

o 

4 

3 O' 

4 

■n 



o 

r\t 

.4 

O 


^ ~4 

-1 


rg 


rg 

rg 

O' 

4 


AJ 

3 

4* 

4 

3 3 0 

AJ 

in 

tn 

■n 

•o 

O 

X 

X 

X 

X X 

X 

X 

O 

X 

X 

X 

o 

X 

0 


X 

X 

X 

X m 3 

4 

4- 

3 

m 

-. 

X 

r- 

n 

rg 

4 0 


3 

X 


4 

O' 

X 

4 

3 


rg 

3 

X 

•3 3 

O' 


i- 

n 

o 



o 

3 

3 O' 

3 

3 

rg 


•N 

3 

o 

AJ 

3 

X 

3 

AJ 

-1 

4 3 X 

■X 

n 

m 

m 

o 

X 

3 n 

O 

X X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

3 3 4 

3 

rn 

0* 

nj 

r*~ 


- 

r>» 

X 

— r- 

® 



- 


X 

O' 

4 

AJ 

4 

X 

3 

O' 

3 -n -53 

4 

•n 

rn 

x 

X 

o 


r*>* 

® 

O' ® 

® 

O' 

3 

rg 

ng 

3 

® 


rg 

X 


J, 

O' 

X 3 4 

3 

-i^ 


tn 

n 

X 

X 

in 

n 

n 

■n 

ut 

O 

X 

X 

X 

X 

X 

O 

X 

X 

X 

3 

3 'T 

3 

o 

^}' 

X 


•O' 


> 

4 

rsj 3 


O 

nj 

n 

3 

X 

X 

X 

O 

X 

3 

3 

4 

4 O' o* 

3 

•n 


rvj 

■n 

X 

nz 

X 

•.I 

® O' 

® 

® 

O' 


rg 

3 

o 

rg 

AJ 

4 


3 

X 

4X3 

3 

in 

•n 

ut 

n 

in 

X 

n 

■n 

'n n 

n 

n 

•n 

o 


X 


X 

X 

X 

X 

X 

3 

n 4 "g" 

n 


.n 

- 


1-n 


,-n 

X 

O 0 


4 

- 

"g 

0 

tn 

.3 

X 

■n 

3 

AJ 

4 

X 

^ 

X 

r 

z 

z 

■n 

0 

■X 

3 

n 

X X 

® 

X 

-I 

4 


3 

z 

•AJ 

AJ 

3 

AJ 

•O' 

pi 

3 O' 


•n 

■n 

n 

n 

in 

n txA 

tn 

n -n 

n 

•n 

o 

O 

o 

O 

r>» 

X 

X 

X 

X 

n 

3 

-M 4 3 

-N 


o 

X 

■n 

rn 

cs 


4 

4 n 

•n 

■n 

- 

X 

o 

0 

AJ 

4 

4 

-A1 

X 

4 

O' 

^03 

3 

o 

X 

X 

n 

4 

3 

4 

4 

n :n 

o 

pi 

z 

O' 

AJ 

O' 

rg 

•AJ 

a; 

•n 

3 


X 

rg ^ -n 


*n 

■4' 

4 

n 

n 

-n 

ut 

n 

-n *n 

«' 

in 

X 

m 

X 

n 


X 

X 

X 

X 

X 

3 

3 4 3 

AJ 

n 

?>» 

•n 

- 

X 

■n 

X 

C-S 

O' nj 

n 

n. 


O' 

O 

o 

•n 

4 

n 

r- 

X 

3 

rg 

A- 3 X 

3 

,sl 


0 





rg 

% n; 

■n 

4. 

n 

pI 

o* 

4 

X 

4 

X 

3 

n 

4 

O' 

eg 3 3 

3 

T 

>T 

4 

4> 

n 

Ut 

n 

•n 

Ul :Xt 

ut 

gt 

(T 

tn 

<n 

n 

X 

m 

•n 

X 

41 

gt 

4 

4 .3 Ai 


.-r 

X 

■z 

4 

X 

-- 

3 

£ 

rg %j 

c 

- 

- 

t 


3 

r- 

4 

X 

3 

4 

X 

a; 

0 ’A; 


tn 

4- 

n 

O 

X 

X 

■7* 

® 

X X 

o 

4 

i\ 

rg 

4 

3 

3 

}• 

r\ 

4 

X 

3 

pI 

r- rn 3 

O 

•T 


•T 

4 

4 

n 

4 

4 

4 4 

in 

4 

tn 

m 

n 

gi 

X 

in 

gi 

n 

4 

4 

-3 

rg — 



-n 

*n 

X 

- 

o 

-n 

3 

m 

-n 

- 

X 

4 

.-n 

3 

4 

.3 


4 

- 

X 

4 




“^Tl — rf^^tT'ECO'lT'OCJO'IJ 

rr T>T'r^>T-T'T'r’r'.T T ^■ut>xrnr*''^— - 


L, w tr' -jj X .'v w c r» o rs c o 3 z' o vj c ''3 C5 

'J — — r\ 'l Z' 3 4. r3 ^ C O •J‘> O Q ■*', O O '-n C3 

-i^'x — — ^.'\rs,.-ri>T-Pox3f\0t; 

XX ^ — fV 


61 


iNVHkSt SUUARE LAk^ ATTENUATION FRUM 100. FT RADIUS TO 370. FT SIDELINE 



TABLE I. - Concluded. SAMPLE OUTPUT FROM WORKING DATA GENERATION SUBROUTINE WODAG 


o o 

o • 

^ ir» 

h- 

t: 

3 a. 


2 

• 

o 



# 

CM 


7 

9 

7 

0 

7 

6 

6 

X 

O' 

O'— i^p»r“>p~-40mcp{\j 





m 


• 

Pl 

O O UJ 



0 

• 

• 

• 

• • * 

• • 

ft ft 

• 

9 


9 

• ft 

ft ft 

9 

ft ft 


9 


0 

9 


O UJ 


2 

•0 

0 

aoomrf>o®xOf«-»n 

m 

ft»4 

0'OCPrx-4XOP'x 

X 

0 

0 

0 

0 

0 

0 

4 


0 


X 

0 

1— 

CO 

Q. 


0 


vO 

^ uo in lA in 

4 4 

4 4 

4 

4 

rn4fn“nrnmmpg 

pg 






rg 


W 

X 

<I 


CO 























£Y 




















UJ 






n 



*r' 

• 

m 

r»- 

X 

X -4 PO 

X rn 

m X 

p- 

fNjX'px-xpnp-fn-^-^ 

in 

in X 

X 



2 

0 


9 

pg 

CD 




rD 

0 

• 

# 

• 

• • • 

a ft 

ft ft 

« 

9 


9 

ft ft 

9 9 

9 

9 9 


9 


0 

9 


O lU 


2 

m 

tn 

■mt 

ni X X p» 

4 4 

4 nj 


Opxxp'xr»Xpntnw<p 

<p 

2 

2 

9 

0 

0 

0 

0 

-1 

X 


X 

0 

u. 

UJ 

O 


LU 


>o 

in 

m m in in 

in in 

in irt in 

tnx4444444rn 

n 

rn rg 




LU 

pg 



X 

Z UJ ac 


»- 
















0 





Cl Q. 

LU 


K 





















CJ 

CO 

0. 


<T 

• 

tn 

in 


m X O' 

4 -* 

X X 

4 

0 

5 
4 
9 

6 
2 
6 
L 
0 

X 

O' X 4 O' 



X 

X 


• 

rn 






r> 

• 

• 


• • • 

• • 

ft ft 

• 

9 


9 

9 9 

ft ft 

9 

9 9 


9 


0 

9 





CD 

>r 

0 

o^^f'^»'Oln^n^nxt 

4 

m 

^-j_«OOOOPxxXO' 

pg 4 

X -4 

0 

0 0 


cn ■ 


4 

4 







<0 

'nintniriinintAininm 

inmtnintn4in44 

4 

4 m pg — < 



»- 

rg 



fX. 





□H 

UJ 
















u. 









X 

• 


p* 

p- 

in X nj in 

00 X 

m 4- 

6 

0 

9 

6 

3 

1 

2 

2 

3 

in X O' pg 4 


9 

0 


ft 

X 





a 

0 

• 

• 

• 

• • • 

ft ft 

• • 

ft 

9 


9 

9 9 

ft ft 

9 

9 9 

Q 

9 


0 

9 




< 

CO 

rn 

!*» 

0 


xT X in m 

in tn tn 

4 

fn4mcNjr»>p“nitnin 

0 pg 

X 4 

X 

0 0 

0 

rg 


0 

X 





0 

-H 

>0 

in in 

in 00 m m in 

tn in 

in 

inininninininininin 

4 4 m rg 



0 

<N 



p* 




»- 

z 


















X 







K- 


















0 






< 

<4 

• 


m 


X -< P- 

0 nj 

X O' 

0 

04xotn0'rgtnp- 

(p 

X pg 

6 X 

-g 



pg 

2 

9 

X 






0 

• 

• 

• 

• • • 

• • 

ft ft 

ft 

9 


ft 

9 9 

ft ft 

9 

ft ft 

0 

9 

Q. 

0 

9 




a 

CO 

(V 

00 


0 

fV X X in 

X 4 m 

4rrifn4pnfncP4tnx 

0 X 

0 0 

4 0 0 

K 

— 1 


pg 

O' 





t/> 

-4 

0 

.j- in 

•n tn tn -n in 

in m m 

intninihtnininininth 

tn 4 

4 m 




rg 

♦ 


p- 





UJ 
















X 


UJ 







0 
















0 


2 






Q 

X 

• 

0 

0 

p- 

'n X m rn 

0 * -> 

0 

4inP"P'-XX-^ino*P'x 

m -« 

0 X 



M 

X 


9 

m 





UJ 

0 

• 

• 

• 

• ft • 

• • 

ft ft 

9 

9 


9 

ft ft 

9 9 

9 

9 9 

0 

9 

-J 

0 

9 




LU 


-4 

00 


X 

ru J- -n 

4 n 

4 4 

4 


0 Px- 

-» rg P» 

0 ^ 

< 

0 

UJ 


ri 





CD 


>0 


in n <n 

in in 

in in 

in 

in 

in Lpi 'in n in X in in 

tn 

m 4 

4 X 

-H 


QC 

rg 

Q 


X 




♦- 

2 


















M 

























X 






< 

»- 

* 

0 

n 

X 

“t x^ 0 in X 

X n» 


^oixom-jni-j-^ 

X 

p» pg 

O' 4 P- 

pxi 

►- 

—1 


9 

CP 





< 

0 

« 

• 

• 

ft ft ft 

• • 

9 9 

• 

9 


9 

ft ft 

ft ft 

ft 

9 9 

U. 

9 


0 

9 




-J 

QC 

0 


ro 

X 'o xt in 

4 -* 

m -n 


n 

njrnrnfnrnpxxpn4 

X 

0 p- 

,-n -n 

X 

0 0 


0 


0 

O' 





0 . 


X 


•J- 

in tn in 

in X 

X m in 

in 

inininninninin 

n 

X 4 

4 cn 


ft 

rg 

LU- 


pxx 




0 

X 
















0 

























0 


9 






Q. 

0 

• 

0 

m 

tM xf X CT 

-4 

X O' 

m 

rg 

6 

6 

4 

5 
a 
0 
8 
5 

in 

0 

3 

9 

2 

9 

X 


0 

0 

9 

p» 





CD 

0 

• 

• 

• 

ft ft ft 

• • 

ft ft 

9 

ft 


9 

ft ft 

ft ft 

ft 

9 9 


9 

0 

0 

9 




< 

2 

CT' 

0 

0 

X 

X -4 <T» 

nj nj 


nj 

rxjrgrgrg-HCprgrn 

X 

0 X 

-j eg p- 

0 0 


0 

0 

CP 

IP 







-0 

xj- 


xt m m in in 

m 41 

in 

n 

in X n in in n tn n 

n 

X 4 

4 tfi 




rg 



p* 




oc 

















z 









• 
















0 








1- 

LU 

• 

00 

p- 


X rn 0 

ft' ft ft 

0 P* 

■n 4 

X 

-M 

4Nnxp*o-^<M 

in 

X pg X X 

p» 


OC 

-4 

2 

ft 

rg 





2 

rD 

• 

• 

• 

ft ft 

• • 

9 

9 


• 

ft ft 

• ft 

9 

ft ft 

u. 

ft 

O 

0 

ft 




X 

•— I 

a 

■t 

X 

m 

X -4 rn 

X O' 

^ -4 

0 


.-n rg 0 X 

f\j pxft m X p- 

4 

0 0 


0 


X 

0 







0 


> 1 " in in 

in 4 

tn tn 

in 

n 

innnnntninin 

tn 

4 4 

m <g 

-g 


■£. 

rg 

LU 


pxx 




LU 

UJ 
















u 


X 







U 


















>— 







M 

• 

vl* 

X <M 

xJ- (> >t 

m O' 

p« xx^ 

fx- 

X 

inrn4xini— •'Hpxx 

n 

0 X 

-ft pg 

fx. 


►- 

X 

0 

ft 

X 





lO 

0 

• 

• 

• 

• ft ft 

• • 

ft ft 

9 

9 

• •«••••• 

9 

9 9 

ft ft 

9 

ft ft 

< 

• 

2 

0 

ft 




LJJ 


N- 

4- 

X in 

(V X 

O' 0 

O' 

CP 

o-^pgnioxoo' 

pg n f-ft 

X <i 


o 0 

0 

0 


px- 

X 







xU 

xT 

xT 

xf «l 

m XT 

4 in 

4 

xJ- 

tn ui m ui til m in 4 

U1 

4 4 

rn cxg 



2 

IN 



f«X 




2 

»- 
















LU 


UJ 







o. 
















H- 


J» 






M 


• 

••n 

P- 

O' 3 rg 

m 0 tn ^ CP 

pg 

XP>»X04P»0X 

X X CP 

pg X 

X 


t- 

eg 


• 

0 





« 

0 

• 

• 

9 

9 % m 

ft ft 

• • 

9 

9 

• ••••••ft 

9 

ft ft 

9 9 

9 

9 9 

< 

ft 

UJ 

0 

ft 





0 

0 

<r 

0 

X 

m px. 0 

-4 X 

X CP 

O' 

0 * 

PP-^rxgOO'-^O* 

0 

4 0 

•n pg 

X 

0 0 



0 

X 

X 





0 


u 

xT 

>T 

xj- 4- n 

in 4 

4 4. 

4 

4 

44tnxnnin4 

■n 

4 .'H 

X M 




tg 

fX 


r'- 




iU 

0 
















< 


lU 



z 






















a. 



■J 



0 


• 

■ rr\ 

nj 

X 

.'0 4 0 

O' 4 

X X 

n 

n 

0 .4 4 4 X --t X '-J 

n 

X r\j 

4 X 

r-4 



.■n 


ft 

0 






0 

• 

• 

• 

ft ft ft 

ft ft 

ft ft 

9 

9 

• ••••••ft 

9 

9 9 

ft ft 

9 

ft ft 

LU 

ft 


0 

• 

h- 




2 

tn 

r 

■a 

rsj 

rg 0 

O' n- 

0 >• 

p- 

O' 

P-^4NO'OOP 

a 

4 ^ 

0 p^ 


0 0 

CY 

rg 


X 

X 

<l 




Q 


xO 

xT 

>T 

444 

4 4 

4 4 

4 

4 

4 n UT g> 4 X in 4 

n 

4 rn 

.-n -ft 



<t 

rg 



pXft 

CY 



vO 

















0 





►“ 




















3 





n 




I- 

• 

0 


X 

-* n n 

rM O' 

4 X 

.-n 

0 

3 p n -* n n ^5 >j 

•:p 

4 CNJ 

pg-x 



X 

X 


ft 

4 





< 

v3 

• 

• 

• 

ft ft • 

• 9 

ft ft 

9 

9 

• ••••••ft 

9 

9 9 

9 9 

9 

9 9 


ft 


0 

ft 

2 




0 

-r 

r<l 


CT 

0 X n 

p» n 

n X 

X 

fXXI 

X-JPM-UOPX 

X 


X -ft 

0 

0 0 

LU 

m 


4 

X 



X 




>x 

>r 

.n 

444 

4. 4 

4 4 

4 

4 

4X4.104X44 

4 

4 xn 

pg -4 



X 

rg 



pxx 

TL 


o 


>- 
















a 





C3 




<3 
















jj 





<I 


< 


LJ 

• 

>r 


CP 

X O' P- 

in X 

O' P- 

O' 

C 

CP -.'g m C3 r\i CP p» 

rg 

X X 




> 

0 


ft 

p* 



a 



C3 

• 

• 

• 

• ft • 

■ 9 

9 9 

ft 

9 

• ••••••ft 

9 

9 9 

ft ft 

9 

9 9 

2 

• 


0 

ft 

OJ 


X 


0 

.'O 


X 

X 

fx. ^ 

4 -n 

rsj m 

«M 

4 

rnnr'xxnxnni 

rg 

m X 

pg 0 

o 

a 0 

M 

X 


rn 

—4 

J 




u: 


■n 

r\ 

rn 

rn xj- >r 

4 xJ^ 

4 x» 

xT 

4 

44444 n4xx 

4 

X 





IN 



1— 

■a 


•X 


a 





















4. 




Q 





















Kt. 




7 

• 


0 

c 

r\’ n 

n n 

n 

n 

X 

ix-Yi-.^xfn4 t 


M t\' 





'n 


• 

3 



I- 



c 

• 

9 

• 

• ft a 

9 9 

a a 

9 

ft 

• ••••••ft 

9 

9 9 

ft ft 

9 

9 9 


ft 


0 

ft 

O 


L/l 


1 — 

:N 

m 

0 

-u 

xU JX LP 

^ a 

Ji X 

X 

■J 

ao-^-ftf\0*crxm 


3 X 

0 0 

0 

.0 n 


0 


<N 

X 

2 

<3 


.5 




tn 

rn 

X 

rn .n r 

xT xJ- 

rn -n 

-n 

4 

m 4 4 4 rn 4 .-n rn 

m 

rg 





pg 



<41 

!/l 

X 

LU 




, 

_ 

‘T 


4 rx, X 

■n O' 

0 

0 

px. 

-*P4X4n-irc 

n 






n: 


ft 

•n 


*~ 




•3 

• 

• 

9 

999 

a ft 

9 9 

9 

• 


• 

9 9 

9 9 

9 

9 9 


ft 


0 

• 


r*-; -V *N rr> rr* T, rn r*', m •'H r»l ^ r»*. ni :r\ ,% 


^ -Y r. VI. 
u. <1 ur 

1 LI. 2 — 

,J 

_j o; — 2 
^ \r. 

— — JL :i. 

►- 2 c i 

'4 U -o 

4. V/. 


— r» 

4j 
• ,Y 


2 - 
a 


'c^oac-oc'-^ocoococcooucacc 
i c; 'N c c r> — c C! o 2 ^ a c rj — c C3 vj Q c o w 

^ — r\, m <r -p Mj X \ u tr ^ ^ j rr, -.3 u IT o O 

— — '-rvrv-nj'4''>oXCrwX3 


' >}■ vr c ^ X •7' 


4-tPX'^XO'C — 

-N r\ r\ c\ rv (N 


62 



TABLE n. - SAMPLE OUTPUT FROM SUBROUTINE TABLE 


QC -1 — 

m ^ OJ 

^ o 

O 00 (*) 

^ b- m 

o* o> CO 

Ol 0“ in 

'Torn 

m «4 o* 

€0 « 

in 

LU UJ ^ 

• • t 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

t • • 

f • t 

• 

:k > 3 

CD QN <M 

♦ m 

OJ OJ eg 

rj 

OJ ro m 

m ^ m 

OJ C7* 

O OJ OJ 

Ol ^ K 

m 

O ui Q> 

iM OJ 

OJ eg 

OJ OJ OJ 

Ol OJ OJ 

OJ OJ OJ 

OJ m OJ 

OJ fO OJ 

*o ff> <n 

(O in co 


Q. ^ 

*4 ^ 

^ ^ 

^ 

^ 

^ 

«4 >4 ^ 

*-• -4 ,-4 

*4 *4 •«« 

•M *4 ^ 


LU UJ 
-I O 

^ 00 

c-» o- vO 

^ ^ 

r* m 

m O* ^ 

® rn 

o m f7* 

-4 0- ro 

OJ o 

OJ 

a. cr Q. 

• • • 

• « • 

• • • 

• • • 

• • • 

• « • 

• • • 

• • • 

• • • 

• 

X 3 CO 

^ ^ 

tO ifL 

^ in ^ 

^ ^ 

in tn <4> 

in ^ CO 

O ^ *^4 

m in 

in o 

«o 

»-• o 

«/> VI 

O* 0- 


0“ O- 0- 

f*- r- 0- 

0- o- r- 

0» CO 0- 

® ® ® 

O 00 CO 

GO 00 

o» 





o* o cn 

o m o 

03 o> OJ 

OJ 00 

f4 43 m 

CP w ^ 

"O p- p- 

® m m 

OJ p- 43 

m 

00 m 


o 


• • • 

• « • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• 

• • 




o* o m 

mo® 

4> 0> 'O 

'T m ^ 

OJ OJ OJ 

O -4 

Ol P- >P 

m xf 4* 

cn Ol in 

»4 

^ o 




P- CO w 

m 03 r- 

r- r- r- 

r- r* r- 

p- p- r- 

f- P- P- 

p* p- p- 

p» p- p- 

p* p* p» 

CP 

r- 4) 




0^0 0 

^ 4> 

O' O m 

r- m p- 

o <• CP 

m m o 

O 4- OJ 

^ -4 CM 

<P 

CP 

•4 OJ 


o 


• • • 

t • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

t • • 

• 

• • 


in 


p*» O' m 

^ m -4 

0-4 0' 

CD r- m 

'O 43 m 

p- m 

4> O O' 

® CP o 

CP CO CD 

m 

m pi 

>- 

*- 



o- r- a> 

GD (D 03 

03 03 O- 

r- r- 

p» p* p“ 

r- p“ r- 

r» 03 p- 

p“ p- ® 

p“ p- 

CP 

03 43 

o. 



^ -4 m 

IT* O 'O 

^ o 

O ® 

o O' -4 

43 Ol O 

m CP m 

m x(p o 

^ ^ p. 

in 

4) in 


o 

v> 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• * • 

• 

• • 

z 



41 IP 

^ V* 

cr o O' 

V» r- '43 

r- r- r~ 

4» w* r* 

03 «C’ »M 

CM PI 

IM ^ <-4 

xp 

n 



« 

r« p“ r- 

03 00 r» 

r*- 03 p» 

p“ r- r- 

p“ p- 

p“ p“ p» 

03 03 

03 03 03 

03 n n 

CP 

03 fo 

X 


o 

41 












LU 


oc 

^ ^ o 

43 ^ Ol 

CM 43 m 

CM in o 

r- O CM 

43 CM m 

in C9 CP 

^4 43 43 

X^ -4 

o 

<■ 43 

:> 

o 


• • • 

t • • 

• t • 

• • • 

• • • 

• • • 

* . * * 

• • • 

t • • 

• 

• • 


m 

cc 

o> ^ 

O' u* o» 

03 00 ® 

® r- r- 

p- 03 r» 

w m O' 

CM p- xp 

'T in in 

XT xT 

4> 

CM QO 

t— 


Ui 

f» r* r* 

r- r- 

r- r- r- 

o- 1^ r- 

p» r» r» 

r- 03 p- 

03 03 03 

non 

03 n n 

CP 

CP P- 


z o 

111 u 
O <-i 

oL a. 

iU 

a. «“• 

• 

o 


u -J 
3 

I/) Q- 


O 

O 


o 

tn 


< 


>- »/) 

< 'V 

o z 

O OJ 

ac o 

< o 
o o 
z o 


CO LU 
OC 

o 


z 

43 xp O 

in ^ in 

n 4 4} 

03 CP 43 

•4 00 p 

0 0^4 

o m in 

•4 fV) O 

o q o 

XJ3 

in 

CO -4 x»- 

p. GO <43 

ac p» x<3 

x<3 in in 

43 43 43 

p m o 

n 43 ni 

4 m x<3 

^ 4 m 

in 

• 

o 

P» P“ P- 

f» P- P* 

p p 

r» p n» 

P P P 

P «l 03 

O QO 03 

03 03 CU 

O OD O 

. O' 

m 

4) m CD 

OJ in -4. 

^ QO ^ 

O 49 O' 

4 P CP 

43 P O 

o p in 

o m O' 

44 u» rg 

m 

z 

CP CP Ol 

in xO m 

4 in in 

in 4 4 

in in 4) 

4> x^ (jx 

44 m *4 

m xT m 

eg *4 Ol 

4 

o 

43 4> P“ 

p*x p*x 

r- P p 

p P P 

p p p 

pop 

O CD O 

O CD GO 

O OD O 

cr 


p» GO *n 

p- m 00 

Ol m CO 

POO' 

o in eg 

in eg o 

in in p 

O O O' 

44 4 o 

m 

Q. 

• • • 

t • • 

• • • 

• • • 

• f • 

• t • 

• • • 

• • • 

• t • 

• 

CO 

00 4> o 

4 in 4 

OJ 4 <n 

m <n m 

in 4 in 

in o P 

O' in o 

eg 4 eg 

^ ^ 

m 


4> xJ3 P-> 

r- p* p- 

p p p 

p p p 

p p p 

pop 

POO 

o o o 

o eo o 

O' 

V) 

-J 

xp m in 

O' -4 m 

4 ® <n 

P O 4 

p p eg 

•4 flo in 

P 4 P 

4) OJ Ol 

6 

1 

3 

m 

UJ 

• • « 

t * • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• • • 

• 

> 

xO xO 00 

^44 

— 1 CM m 

Ol OJ m 

m m 4 

4 44 xO 

O lA O' 

CM OJ -4 

cr o cr 

OJ 

UJ 

43 43 4) 

p- r- p- 

p p p 

p p p 

p p p 

POP 

POP 

O O O 

POP 

O' 

UJ 

9 

I 

8 

xO m m 

•4 0 0 

eg GO 4 

4 0 4 

44 o O 

in p p 

CO m 4 

m 4 eg 

xO 

ex. 

* • • 

• • • 

• • # 

• t • 

• • # 

• • • 

• • • 

• # • 

• • • 

# 

3 

OD xO 4> 

-* m cn 

O ^4 OJ 

•4 ^4 OJ 

4 m 4 

m O' in 

4) C^ P 

POP 

p 43 43 

o* 

CO 

CP 

« ^ xO 

px P- P- 

P P P 

P P P 

p p p 

p p p 

P P P 

p p p 

P P P 

o 

UI 

oc 

OJ CO *4 

6 

1 

I 

P xO x4 

P O CP 

O 4 44 

in p in 

® m O' 

'0 4^ 

O CM 44 

o 

£3. 

• • • 

• • • 

• • • 

• • • 

• • • 

• • t 

• • • 

• * • 

• • • 

• 


p*x in in 

o OJ m 

CP o -4 

o o ^ 

m 4 in 

m "4 4 

in O 45 

POP 


cr 

o 

z 

43 43 4> 

p- p- p* 

xO P P 


p p p 

POP 

POP 

p p p 

P P P 

o 

o 

V3 

4> o m 

4 4> ® 

<0 ^4 O 

p -4 m 

OJ 4 eg 

m m in 

O P CM 

o m ^ 

xJ5 CM 4) 

fO 

r» in 

® -4 OJ 

O' O f4 

•4 x-4 t-M 

eg 4 in 

4 <4 4) 

P O' P 

POP 

49 4} 49 

o 

o 

z 

4) 43 4> 

xO P^ Px 

4> P P 

P p P 

p p P 

POP 

P P P 

p p p 

P p P 

cr 

< 

4} o ® 

<P ig in 

«4 4> in 

4 '0 4 

eg in O 

OJ CM O 

m OJ o 

4 C^ CM 

4 P OJ 

—4 

UI 

n m 4* 

CD c3 oj 

O CP o 

C3 OJ OJ 

in o p 

in xj3 o 

o CM O 

cr cn m 

cr o cr 

CM 

:> 

< 

43 4> 4> 

<43 P P 

P 4) P 

P P P 

p p p 

POP 

POO 

p p p 

p p p 

cr 

p- 

o 

CP CD -4 

43 4J m 

OJ GO m 

CP ® CM 

in in p 

o C7' in 

m o OJ 

-4 CO P 

cr O' o 

4 

CJ 

• • • 

• • • 

• • • ■ 

• t • 

• • • 

• • • 

• • • 

• « • 

• # • 

• 

1 

in m 4 

o or »g 

O CP *4 

o *4 m 

p in o 

43 O C7' 

0 4-4 

4 eg OJ 

44 ^ O 

4 

m 

4J 4> 4> 

P 4> P- 

r» 43 p 

p- p- p 

p p p 

POP 

O 00 o 

03 0 0 

o O o 

cr 


CP ^ O 

CM -4 o 

4 4J 43 

O' m p 

in *4 xO 

o O' m 

in o Ol 

x43 cr O' 

44 xO 43 

CM 


4 in 4 

CP CP ^ 

O O' o 

CP -4 *4 

m 4> p 

xO O* O' 

O' m o 

44 o o 

o o o 

m 


xo 4> n 

43 43 fx. 

P 43 p 

xO P P 

p p p 

POP 

POO 

O CD O 

O 00 o 

cr 


^ 4) n 

OJ in o 

xO o o 

4 -4 p 

O 4> eg 

eg in o 

o 4 eg 

cr 44 44 

4-4 4) 

49 


n in in 

CP o* ^ 

O CP CP 

CP IM o 

^ 4 P 

43 p o* 

O OJ o 

O' o o 

O' cr O' 

CM 


43 43 4> 

43 43 p 

P 43 43 

4> ^ P 

p p p 

POP 

POO 

POO 

p p p 

O' 


o m m 

POO 

p m o 

4 O xO 

OOP 

P 4 o 

Ol O P 

OJ m xo 

xo 4 m 

4 


CP 4* «» 

03 O C7 

CP CP CP 

«3 44 V» 

'Q- Ml Ml 

10x43 0 

P O O 

IV o o 

«3 P U# 



XA3 4/ 43 

xfc3 r“ 

XV 43 Xi3 

XV p XV 

P P P 

POP 

POP 

p p p 

p p p 

cr 


o 

m 

o 

o 

in 

b 

o 

o 

in 

o 

O 

o 

O 

o 

o 

o 

o 

O 

O 

o 

o 

o 

O 

o 

o 

o 

o 

_l 

_l 

in 

o 

o 

o 

Ol 

45 . 

.o 

in 

•4 

o 

o 

m 

o 

o 

in 

o 

o 

O 

in 

o 

o 

o 

o 

o 

o 

o 

o 





-4 

—4 

-4 

eg 

eg 

m 

4 

in 

49 

o 

o 

CM 

43 

o 

tn 

p 

o 

o 

m 

o 

o 

in 

o 

o 

OC 














-4 

-4 

^4 

CM 

CM 

m 

4 

in 

4) 

o 

o 

CM 

43 

o 

Ui 

























*p« 

—4 

Ol 

> 




























o 


VN 0> 

• • 

n O' 
r» 

tn m 



63 


CISTANCE SIDELINE PERCEIVED NOISE LEVELS 



TABLE m. - SAMPLE OUTPUT FROM SUBROUTINE DADIFF 


(sj IM ^ 

I- • »- • X 






X 

O 




X 

O 




X 

oo 


^ o 

0 

0 


d 

00 

in 

■d O 

OJ 

4> 

9 

6 

OJ 

in 

PI 

d 


cn 

d 

cx 

00 

3 

8 

r- 

cx 





UJ 

<D 




UJ 






• 


• 

• 

9 9 

• 

9 

9 

* 

9 9 

9 

• 

• • 

• 

9 

9 

9 

9 

9 

9 

9 

• 

9 

9 

9 

9 





X 





X 





d 

>•>4 


OJ 

ro 

<0 

rO 

tn 

cn 

{O ff\ 

OJ 

mm 

9 

6 

d 

m 

® 

cx 

d 

O' 

r- 

O 

cx 

in 

47 

O' 

m 















K 





mm 

mm 

mm 

m4 


mm mm 


mm 

1 1 

1 

1 

1 

1 

1 

1 

1 


mm 

>4 

mm 

to4 

rx 




• 

o 

O 



0 

O O 





1 


1 

1 

1 1 

1 

1 

1 

1 

1 1 

1 

1 









1 

t 

1 

1 

1 

1 




o o 



O 

o 



»- 

UJ 





























SL 

o 

o 



X 

O 

o 




z 

o 





























Q. 

00 

o 

• 


a 

nj 

o 

• 



<l 






























CC 


ru O 


X 

^-4 

nj o 



X 






































•M 



o 

LU 

r- 


st m 

6 

6 

ro 


i-4 

o 

2 

0 

OJ 

r- 

3 

6 

r- 

O' 

CO 

00 

d 

in 

in 

d 

in 

CX 


O' 

r- 





o 





o 




<t 

z 

* 


« 

• 

9 9 

• 

• 

» 


• • 

9 

9 

• « 

9 

9 

9 

9 

9 

9 

9 

• 

9 

t 

• 

• 

• 





>- 





♦- 




17 

LJ 



n- 

<30 

-4 fO 




OJ 

-4 -4 

o 

O' 

o o o 

o 

47 

OJ 

in 

o 

0- 

CO 

o 

mm 

to4 

fX 

in 






X 





X 



CJ 


>r 


mm 


rvj OJ 


OJ 

OJ 

OJ 

OJ OJ 

OJ 


OJ OJ 

OJ 

cx 

CX 

cx 

cx 

PI 

OJ 

cx 

*n 

PI 

p> 

PI 

■n 



o 


o 

u 


o 


LJ 

LJ 





toU 


-4 


— * — * 

>4 

mm 


-4 

-4 to4 

-4 


-4 -4 


to4 

-4 


mm 


•4 

4 


«4 



-4 



UJ 


in 

X 


UJ 


in 

X 



X 

>u 





























LU 



U- 


UJ 



u 



<I 

to 





























o. 





a 






UJ 






























to 

o 


to 


to 

o 


tO 



X 































• 

X 

UJ 



• 

X 

UJ 




O 

O 


0 

5 

6 

6 

O' 

fO 

m 

in 

8 

0 

o 

OJ 

d o 

m 

d 

in 

d 

PI 

•H 

-4 

cx 

CD 

O' 

PI 

cx 

d 



♦- 

ITk 

a 

U1 


t— 

o 

O UJ 




X 

« 


« 

« 

« • 

9 

9 

% 

« 

9 9 

9 

9 

• • 

9 

9 

9 


9 

« 

9 

9 

« 

« 

9 

9 

9 



z 


X 

X 


z 

in 

X 

X 




»- 

o 


in 

in 

cr 

O' 

oo 

r* 

<D 

O- 00 

00 

CO 

o d 

47 

r- 

00 

o 



o 

07 

C4 

m 

d 

m 

cx 



UJ 


u. 

o 


UJ 


u 

o 





m 


o 

L7 

O LJ 

LJ 

L> 

o 

CJ 

L7 L7 

o 

o 


•M 

>4 

-4 

OI 

cx 

cx 

cx 

mm 



>4 

-4 

-H 



l_J 



UJ 


u> 



UJ 




t- 






o4 




mm mm 



mm mm 


mm 

-4 

mm 

mm 


mm 

mm 

mm 


^m 


mm 



X 


to 

o 


X 


to 

o 




UJ 





























liJ 


n 



Ul 


Q 





to 





























a 


z 

t 


a. 


z 

« 



































< 

o 




< 

o 








































tD 




































UJ 

>- 




UJ 

>- 



































5» 

X 




> 

X 




-t 





























z 


< 

UJ 


z 


< 

UJ 




X 





























o 


H- 

> 


o 


»- 

J> 




X 

cr 


IT 


O' IX 

O' 


in 

ou 

in tr 

47 

O' 

CM tr 

tr 

00 


cx 

O 

m 

mm 

cx 

O' 


tx 

in 

cx 





O 

UJ 




u 

UJ 





« 


• 

9 

• • 

• 

9 

• 

9 

• t 

9 

9 

• • 

• 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

• 

• 



»- 


o 



1- 


o 





< 

n- 


toU 

o 

O OJ 

LJ 

mm 

mm 

O 

O O' 

O' 

00 

07 in 

OJ 

o 

cx 

cx 

cx 

tn 

d 

47 

47 

oo 

O' 


d 



<T 



to 


< 



to 




t- 

1 


mm 



mm 

mm 

— 1 


1 

1 

1 

1 1 

t 

1 

-4 

1 

1 

1 

1 

1 

1 

t 

1 

-H 




X 


ni 

UJ 


X 


nt 

UJ 







( 

1 

1 1 

\ 

I 

1 

1 

t 






1 









i 

1 




o 


-J 


_» 


^s. 

-J 




UJ 





























o 

o 


o 


o 

o 


C7 



z 

LJ 






























0^ 


z 





z 



4*. 






























u. 


t 

<1 


tt 


1 

<1 



X 






























Z 





z 






(-> 

UJ 

tr 


LJ 

tu 

OI fw 

mm 


47 

mm 

r» Ul 

PI 

r- 

CJ tr 

tr 

d 

LJ 

mm 

mm 

PI 

47 

PI 

tr 

PI 

tr 

p> 

mj 

1— 


n 



47 


o 


r- 

47 



< 

z 

• 


f 

V 

• • 

9 

9 

9 

9 

• • 

• 

9 

9 9 

9 

• 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 



w 


tNJ 



*wJ 


OJ 

mm 



u 

o 

tu 


tX 

IT 

tJ ■4' 

'U 

r- 

d 

m 

Ul Ml 

47 

47 

tr tr 

LJ 

t7' 

LJ 

tx 

PI 


d 

47 

47 

r- 

4» 

tr 

tx 

UJ 











to 


LJ 


m 



LJ 

mm ^ 

mm 




mm m^ 

mm 

mm 


tx 

mm 

ni 

OJ 

tx 

tx 

cx 

CX 

tx 

cx 

CX 

cx 

PI 















r- 

mm 




mm 





mm wm 

mm 

mm 


mm 

r-i 


mm 

mm 


mm 

mm 

mm 

•H 

mm 

-H 

mm 












LU 


t- 

LU 








































z 

to 






































w 


o 









































X 







































z 


X 

o 

o 


O 


rn m 

OI 

d 

mm 

n 

OJ %o 

47 

CD 

7 

0 

o 

in 

O' 

o 

o 

CO 

tn 

mm 

o 

cx 

07 

OJ 

d 













OI 


X 

• 


• 

• 

• • 

9 

9 

« 

• 

9 9 

9 

9 

• « 


• 

• 

9 

• 

9 

• 

9 

9 

• 

• 

9 

9 

1- 











LU 

z 


H 



o 

CT 

O' OJ 

in 

in 


d 

Ul m 

41 

f"- 

o d 

CO 

00 

r* 

o 


rH 

o o o 

O' 

07 

00 

00 













a 



m 


o 

O' 

O' o 

o 

o 

o 

o 

o o 

O 

o 

mm mm 


mm 

mm 

cx 

cx 

cx 

OJ 

cx 

cx 

•H 

mm 

«H 













X 









>4 







pH 


mm 

mm 

mm 


to4 


4 

<4 


•H 

#H 

mm 













h- 


LU 


> 

























U 











UJ 

.1^ 


to 


LJ 





































to 




z 




































X 





UJ 









































3 O 

m 

o o 

in 

o 

O 

o 

in o 

o 

o 

o o 

o 

o 

O 

o 

O 

o 

o 

o o o o 

o 

O 

LJ 











X 

♦- 



-i 

LI 

in 

4) 

CO o 

OJ 

4; 

O 

in 

o 

o 

m 

o o 

m 

o 

o 

o 

in 

o 

o 

o 

o 

o 

o 

o 

O 













<3 



-J 

Ui 



i-H 

mm 

mm 

OJ 

OJ 

m d 

IT. 

47 

00 o 

OJ 

47 

o 

in 

«4 

o o m 

o 

o 

in 

o 

O 













LJ 



d 

X 











mm 

to4 

*4 

OJ 

cx 

rn 

d 

in 

47 

00 

o 

OJ 

47 

O 
















X 

u. 





















to4 



cx 












o 

to 



LU 









































> 

a 





































z 



o 

z 









































•d 

mm 

OJ 

m 

in 

4) 


CO 

O' o 

-4 

OJ 

m, d- 

in 

4) 

o- 

00 

O' 

o 


cx 

cn 

d 

m 

47 

r- 

U. 











_J 

X 




m 











-4 to4 

•4 


•4 

mm 


cx 

cx 

cx 

OJ 

OJ 

cx 

CX 

OJ 

o 











UJ 

o 









































Jt 








































> 

H- 





























z 











OJ 

t- 









































tu 





























u 











toJ 

to 





























iA 












<r 









































J— 





























_■ 











X 

<1 









































o 





























IX 











UJ 






























< 


z 





z 




































CJ 





o 


































X 











o 












f 




















r~ 





1— 


































2: 


< 





< 




X 
































X 





X 







X 



























u 


>— 





h- 







X 





























VJ 





to 








LJ 


m 


r- OJ 

tn 

tn 

fO 

O' 

47 to4 

fO 

in 


in 

fx 

in 

3 

2 

7 

L7 

cx 

*H 

00 

r- 

CX 

o 

o 







*— 1 







< 

• 


• 

• 

9 9 

• 

• 

* 

• 

• • 

• 

• 

• • 

• 

• 

• 

• 

9 

9 

9 

• 

• 

• 

• 

• 

• 



z 





Z 







►— 

o 


OJ 

OJ «> cn 

OJ 

OJ 


OI 

OJ OJ 

>4 

o 

O' 4J 

PI 

cx 

o 

cx 

m 

r- 

4) 

00 

o 

-4 

cx 

in 

00 





X 





X 









mm 


to4 

«-4 


-4 

to4 "4 

to4 


1 I 

1 

1 



1 

1 

\ 




mm 


to4 



X. 


o 



X 


o 





UJ 

1 


1 

1 

i 1 

1 

\ 

1 

1 

1 1 

1 

1 




1 






1 

1 

1 

1 

I 



a 


z 



o 


z 




X 

o 





























< 


< 









UJ 
































X 





X 




:* 






























UJ 


CD 



UJ 


03 




CJ 

UJ 





























o 





o 



H 



X 

z 

tU 


in 


OI d- 

*-* 

O 

o 

tu 

m ^ 

r* 

in 

r- PI 

GO 

cx 

o- 


d 

cx 

PI 

m 

pH 

P“ 

CO 

47 

d 





to 



< 


to 

tu 




o 

• 


• 

9 

9 9 

• 

• 

• 

• 

• • 

• 

• 

f • 

t 

• 

« 

9 

• 

• 

9 

9 

• 

• 

9 

• 

• 



X 


o 



a 


o 

t^ 



-J 


m 


oo 

O' 

OJ d- 

d 

in 

OJ 

OJ 

OJ rtj 

»4 

to4 

OJ n 

PI 

m 

-4 

in 


cx 

O' 

o 

cx 

CX 

OJ 

d 

f4 



to 





lO 






< 

»- 

d 


mm 


OJ OI 

cx 

OJ 

OJ 

OJ 

OJ OJ 

OJ 

OI 

<X OJ 

rg 

cx 

PI 

cx 

cx 

PI 

OI 

m 

cn 

m 

cn 

m 

PI 





♦— 





t- 

Q 



1- 

UJ 



mmi 


mm mm 









-4 






mm 

to4 


to4 

mm 


■4 



o 


to 



D 


to 

z 



LJ 

to 





























z 


=> 



Z 


u 

o 



»- 
































O 



<f 


o 

o 


































X 

o 




X 

LJ 

UJ 




a 






























UJ 

•c 



to 

UJ 


to 




X 

Sf^ 


Cs* 

d 

in -*J 

IX 



O' 

r* O 

d 

o 

47 O 

m 

O 

<x 

OJ 

OI 

in 

PI 

PI 

o 

tr 

mm 

d 

d 



o 

K 




o 

»“ 






K 

• 


• 

9 

• • 

• 

• 

• 

• 

• • 

• 

• 

• 9 

• 

« 

• 

9 

9 

9 

• 

• 

9 

9 

9 

• 

• 




z 

to 




Z 

to 

to 





m 


47 

47 

00 o 


O 

00 

O' 

tr o 

o 

»4 

P7 r* 

LJ 

to4 

«4 

PI 

d 

d 

m 

CX 

cx 

o 

o 

O' 

O' 



►— 

UJ 

X 

< 


►— 

UJ 

X 

< 




»— 

m 


O 

O 

o ^ 


»4 

o 

L7 

o ^ 




OJ 

CX 

«x 

cx 

cx 

cx 

OJ 

cx 

cx 

cx 

cx 

to4 

•4 



-J 

O 

UJ 

t- 


17 

LJ 

UJ 

K 




tu 



mm 


mm mm 

•-4 

-4 


toM 

«4 ^ 



mm mm 

to4 

•*4 

-4 

mm 

mm 


mm 

mm 

mm 

•4 

mm 

»4 

to4 



<1 


r- 

<x 




»— 

< 




Ui 


>■ 



























z 

u. 

VJ 

*—• 


Z 

u. 

to 

tJ 






LJ 



























o 

w 

> 



o 

t_J 

>- 







Z 


























UJ 

X 

X 

to 

UJ 

o 

X 

X 

to 

UJ 






LU 


























z 

LU 

d 


to 

jC 

UJ 

<l 


t^ 






3 

o 

rt\ 

o o 

in 

o 

o 

o 

in o 

o 

o 

tJ o 

o 

o 

o 

o 

O 

o 

o 

o 

L> 

a o 

o 

o 


CJ 

«a 

tu 

z 


t— 


tij 

z 






_> 

LI 


4J 

tu LJ 

OJ 

47 

LJ 

Ul 

.4 O 

LJ 

PI 

LJ LJ 

Ul 

LJ 

LJ 

L7 

Ul 

LJ 

LJ 

o 

LJ 

LJ 

o 

o 

w 




to 

C 

a 



to O 

O 






LU 



mm 

-4 

-4 

OJ 

OJ 

m d 

in 

47 

00 o 

OJ 

4) 

o 

in 


o 

o 

pi 

o 

o 

in 

o 

o 


►— 

-j 

OJ 


z 

t- 

-J 

LU 


z 





d 

X 











to4 



cx 

cx 

m 

d 

in 

47 

07 

o 

cx 

47 

o 


UJ 

< 

X 

to 


■ tu 

< 

X to 






X 

X 





















m4 

.H 

to4 

cx 


to 

Z 


_J 

UJ 

to 

Z 



111 





UJ 




























o 

to 

Z5 



LJ 

to 

D 

J 





> 

1-i 


























<1 


« 

(X 

a 


•-* 


X 

x 





u 

z 


























h- 

»“ 

n 

L^' 

2. 


►“ 

3- 

UJ 

X 






d 


OJ 

OI sr 

in 

47 

I’* 

ULt 

tr o 

— 

IX 

p> d 

Ul 

47 


tu 

O' 

o 

mm 

IX 

PI 

d 

Ul 

4J 

r- 


«A 

■Cl 

UJ 

X 

<Q 

■d 

«a 

UJ 

X 

41 






X 










-4 

^ *4 




■4 


cx 

CM 

CX 

CX 

cx 

cx 

CX 

cx 


C'ZjOLt/J fJi Z ^ i/) 


6.4 



TABLE in. - Continued. SAMPLE OUTPUT FROM SUBROUTINE DADIFF 


QC o 

UJ 

X 

• o o 
o o *- 
X o o 
a. ® o • 

QC — < O 


cc o 

X ^ 

• o o 
o o »- 
X o o 

(M O • 

Qt -« pg o 


X 
o LJ 
Ift oc 


» •dJ 




z r* 

QC OC 


Z IT 

. OC QC 



o 


• • • • 


• 

• 

• 

• 

• 

4 4 4 4 

• • • 

• • 



UJ 

U_ O 


UJ 

U- o 



iO 

rsl 

'T tn m >r 

P3'^fn->y^POrgpg-g 

O' 

r- 

to 

QU 

.-n 

>r o OJ LJ 

Fg «r g> 

CO pg 



o 

LU 


L> 

UJ 




p>4 

^ ^ ^ 


1 


1 

1 

I 

1 Fg 1 -g 

^ 

Fg eg 



oc 

CO o 


OC 

to o 




I 

till 

1 1 1 1 1 1 1 t 1 






1 1 

1 1 1 

1 1 



UJ 

O 


UJ 

o 

















a 

z • 


Q. 

z • 





r- ^ tfi ^ 

o^p“iotocrr“tr\Pi 

00 


gj 

gj 


rg p«- CP OJ 

to P- pg 

to xO 




< o 



< o 



o 

• 

• V • • 


4 

4 

4 

« 

4 

4 4 4 4 

• • • 

• 4 




CD 



m 



U \ 

eg 

PI in 

tnui-«r^'<j'pip>pg-^ 

UJ 

r- 

UI 

gj 

PI 

PI ® pF oo 

LI Pi UI 

r- -g 












^4 ^4 ^4 ^ 


1 

1 

1 

1 


1 1 1 1 


-g pg 




UJ > 



UJ >- 




1 

1 1 i 1 

1 1 1 1 1 1 1 1 1 







1 1 1 

1 1 




> 



> CL 

















z 

^ UJ 


z 

< UJ 




W' 

«U (M ^ 

cruj^r-'J"«u— »nj-H 

tg 

u^ 

gj 

tn 

PI 

p 1 p- r- 

OJ »g »g 

CP F-( 



o 

1- 5» 


o 

i- > 



o 

• 

* • 4 • 


4 

4 

4 

4 

4 

4 4 4 4 

4 4 4 

• 4 




U iii 



O MJ 




LJ 

PI PI PI tn 

'T'rtn^T'T'rniuo 

r- 

Ui 

PI 

'T 


Fg ® gj r- 

cr ei to 

P- rg 



K 

O 


H- 

o 





^ ^ ^ 


1 

1 

1 

1 

1 

1 1 1 1 


•g pg 



< 

V) 



CO 




1 

till 

1 1 1 1 I 1 1 1 1 







1 1 

1 I 



CL 

n» UJ 


OC 

Hi UJ 

















cj 

'L 



'L _r 




%r 

sj- cr OJ >r 

PI gj PI ngjgj 

cr 

ST 

rg 

rg 

cr 

rg Pi p i Ui 

Pi -T tg 

CP gj 



o o 

o 


CJ o 

LJ 



o 

t 

4 • 4 • 


4 

4 

4 

• 

4 

4 4 4 4 

4 4 4 

• 4 



« ^ 

z 



z 



PI 

LI 

^ »U PI 

PI PI PI Pi PI t»i tg ^ V 


ni 

I’l 

gj 

LI 

PI OU pF UJ 

— < xT gj 

<U rg 

Vi 


u. 

1 < 


u. 

1 < 




« 

P-4 <-4 ^ « 

^«p*4^iP4P-4|P^l— » 1 

1 

i 

1 

1 

1 

1 1 1 1 

M ^ 

FF nj 



z 



z 





I 

till 

1 1 1 1 1 1 1 1 







1 1 I 

1 1 



o 



o 

r- >o 

<5. 
















o 

«M — • 


LJ 

ru 



• 

V 

UJ Li 'M <0 

ui gj p^ gj gj to gj gj 


Ui 

gj 

ai 

gj 

cr UJ CP P“ 

Pi ’»• IM 

xr r- 

UJ 







1— 


Li 

• 

4 4 4 4 


4 

4 

4 

■ 

4 

4 4 4 4 

4 .4 4 

• 4 










tu 


V' ‘U 

ig «g ig ig ig tg u' 


PI 

PI 

00 


uj gj cj 

PI gj r- 

w o» 

Vi 







<1 



1 

1 1 1 

1 1 1 I 1 1 1 1 ' 

1 

I 

1 

1 

1 

III’-' 

1 

1 1 1 

rg rg 

1 1 








LJ 



m 

ir ^ 

crcr^LJP“V'>r«gr^ 

U) 

Oi 

O' 


cr 

r* UI UI gj 

® Li <JU 

tv r- 

<i 








— 

O 

• 

4 4 4 4 


4 

4 

4 

4 

4 

4 4 4 4 

• • • 

4 4 









UJ 


«v 

^ ^ nj m 

— ^ PI PI tg ^ 

gj 

Pi 

rg 


PI 

Ui cr p« *g 

PI gj p- 

Fg xT 








u 

z 



^ ^ ^ 

1 

1 

1 

1 


1 

1 1 1 

Fg Fg -g 

rg eg 






' 


LU 



1 

till 

1 1 1 1 1 1 1 ; 




1 


' 

1 1 I 

1 1 









►- 

• 

Ul 

o <-• o to 

tr^O'g<TCP'^^oti 


o 

to 

to 

gj 

<-• p. tn r- 

gj UI cr 

xT rg 

u 







OC 

LU 

o 

• 

• 444 


4 

4 

4 

4 

4 

4 4 4 4 

• 4 4 

4 4 









CO 

o 

eg 

-g O' eg 

-^pgcgrgpg-^F^OC* 

gj 

'T 

Pi 00 

CM 'T -g 00 

to vo rF 

O Pi 








QC 


**^ 




1 

1 

1 

i 

1 

1 -g 1 -g 

^ ^ ^ 

pg pg 

o 







CU 



* 

1 1 1 

1 1 1 1 1 







1 1 1 

' ' 










• 

tn 

«M >#■ m r*- 

5 
3 
2 
8 
9 
8 

6 
5 
5 

«*4 

<p4 

pg 

g> 

g> 

p- ^ to 

Pi pg O' 

xO xO 

X 







CL 

LJ 

o 

• 

4 4 4 4 


4 

4 

9 

4 

4 

• 4 4 4 

• • • 

• 4 










O' 

rg 

0 0-^0 

-gpgpg-gF-j-gFg-gQ, 

p* 

to 

<r 


Pi 

to o 00 Pi 

'T >0 P* 

Fg 

h- 







LU 

CO 



^4 ^4 ^4 ^4 

1— t— 1 

1 

1 

1 


1 

1 Fg 1 f-g 

-( Fg «g 

pg pg 








QC 

3 

Z 



1 1 1 1 







1 I 

1 1 1 

1 I 










• 

m 

9 

8 

6 

2 

8 

9 

6 

5 

6 
8 
8 
2 

Pi 

to 

r- 

to 

o 

^ O eg rg 

pg cr cr 

O' >r 

LL 








X 

o 

• 

• • • • 


4 

4 

t 

4 

# 

4 4 4 4 

4 4 4 

4 4 










00 


eg o O eg 


r- 

to 

Pi 

9 

3 

5 

9 

8 

2 

xT to P- 

O xT 

o 







U. 

CJ 



V V 7^ T* 

'^T*T**^T*T'TTT' 

l 

I 


\ 

1 

1 1 1 -H 

V ^ T 

pg rg 








o 

i- 



in ro -g O' 

mo-d'OOO'^-gegrn 

to 



O' 

o 

Ui ® Fg rg 

Pi O ro 

xO xD 

kl 








»- 

o 

• 

4 4 4 4 


• 

• 

4 


• 

4 4 4 4 

• • • 

• « 









LU 

r- 

«u 

^ ^ C\| 

O-g^g-JO-^^^O* 


to 

Pi 

rg 

>r Ui O' OD — ♦ 

Pi xT Pi 

Pi to 

u 







CO 

CO 




T'*i*T*’i^*T^TTT ^ 

I 

1 

1 


1 

1 1 1 ^ 

fH Fg Fg 

fH fH 

CO 







UJ 

<T 



1 1 1 1 

1 1 1 1 1 1 ] I 




' 



1 1 I 

' ' 










• 


fO 'O f'- 

^o>op%io-g>tPito 

00 

O' 

nO 

O OD 

7 

9 

1 

0 

m CO -g 

P> ® 








L> 

< 

o 

• 

4 4 4 4 







« • • • 

• • • 










a 

o 

O' 

— I o o -• 

^^^^^pgOOcO 

p- 

ro 

pg 


Pi 

3 

5 

5 

7 

00 0* -g 

Pi xO 

Qt 







z 



t 


-g — g ^ ^ ^ *g ^ ( 

1 

1 

! 

-g 

1 

1 1 1 1 

1 1 ^ 

-g ^ 

< 


z 



z 


LU 












1 

1 1 



o 



o 




• 

fO 

>0 CO GO -o 

ffir^,-o^^io<oroio 

O' 


flO 

P- 

Pi 

5 

5 
0 

6 

^ xO o 

pij pg 

Q. 







cx 


o 

• 

4 4 4 4 


• 

• 

« 

9 

• 

4 4 4 4 

• • • 

• • 



►- 



h- 




Ui 

r» 

p3 o o eg 

crpgrgooo'ovtr 

00 

m 

o 

pg 

pg 

Fg Pi 

to xO OD 

o Pi 

X 


< 



< 


tU 



1 

^ ^ ^ 

1 ^ F^ 1 >g 1 1 

i 

1 

1 


1 

till 

1 1 1 

Fg —4 



QC 



qc 






till 

till 1 




J 




1 1 

LJ 





f— 


LL 
















Vi 



VI 




• 

vO 

pg ^ r- PI 

^to <.y ^ pi oo tn pi 




p- 


Li p- tn p- 

pg W cr 

LJ gj 

O 







u. 


o 

• 

• 4 4 4 


• 

• 


• 

f 

4 4 4 4 

• • • 

• ■ • 



Z 



z 





•o 

O O 

O— 4-gocjQoao®cr 


Pi o 

rg 


Fg Pi pg 

xT to g? 

o pg 




X 



I 

M 



f 

^4 ^4 ^4 

-4 ^ ^ -g Fg ( j 1 1 

1 

i 



1 

III! 

: 1 1 

Fg Fg 



2. 

o 


X 

O 





1 1 I 1 

1 1 I 1 1 




1 




1 1 



C 

z 


o 

z 

o 
















< 

< 


< 

< 



• 

tr\ 

m — < ^ cr 

0DPsi'J’>j-r^cjpi>oPi 

to 

p“ 


<r 

o 

«T Pi Ui 

cr pi cr 

cr Pi 




■qc 



CSC 



o 

• 

4 4 4 4 


• 

• 

4 

« 

• 

4 4 4 4 

• • • 

• • 



UJ 



UJ 

03 



PI 

gj 

LJ i-i pg 

CDO'^O'ODP-P-tO'T 

Pi 

o 




Li Pi Pi vr 

«T gj p- 

cr pg 



o 



L> 





1 


1 1 1 1 J 1 1 

1 

1 



1 

1 1 1 1 

1 1 1 

1 



< 

to 


< 

to UJ 





till 

1 1 




1 




1 



Q. 

o 


Q. 

o CO 

















Vi 









«r UJ gj n- 

r-m®Pi^gjFgoPl 

Li 


r- 

o 

<■ 

p* pF r\j UI 

UI CP rg 

— < a> 




►- 



o 



o 

• 

4 4 4 4 


« 

4 

4 

4 

i 

• 4 4 4 

• • • 

• • 



O 

V) 


O 

to z 



lU 

u t 

OJ CJ O Cl* 

ajcrcroor^mr-^TsT 

M 

LI 

* 


o 

o eg eg n 

xT to P“ 

cr Fg 



z 



z 

o 




1 

— * 1 

1 1 1 1 1 1 1 1 1 

1 




1 

1 1 1 

I 1 1 

1 



<1 

o 


<x 

O O 





1 1 1 





1 




1 



QL' 

o 


QC 

O UJ 

















l/i LU 

<x 


CO OJ 

<3 to 



• 

r\j 

-g Pi p> eg 

rgm-.j-ooo“ipior- 

Pi 

Pi 

PI 

•T 

O' 

gj tn cr *o 

ou pi gj 

CD <r 



U K 



O K 




o 

• 

• • 4 4 


• 

• 

• 

• 

4 

4 4 4 4 

• • • 

• • 



^ z 

CO 


z 

to » 




>o 

ro O' O -• 

ooo'0‘p-ir'g3Pi«j- 

pg 

L? 

o 

O 

o 

Z 

c 

0 

to P“ oc 

O' Fg 



i- OJ 

X < 


i— UJ 

X 




1 


^ 1 1 1 1 1 1 1 

1 

1 



1 

1 1 1 

1 1 1 




u U? 

UJ i— 


3 LJ 

cu ►- 





1 1 1 

1 1 




1 




1 ^ 




r— <I 



1- < 

















Z -L 

v» u 


Z 

w/ «_) 



LU 

-J >- 













LJ LJ 

>* 


LJ LJ 




_l 

-J LI 












lU 

CL OL 

to UJ 

C 

QC QC 

to UJ 



o 

< Z 












Z 

UJ <1 

CO 

X 

LU <1 

CO 



z 

cr: UJ 

O Pi o o 

tOOOOioOOOO 

o 

O 

o 

o 

o 

o o o o 

o o o 

o o 


u 

^ tii 

z »- 

f“ 

<1 UJ 

z — 



< 

cu 3 

u> UJ OU O 

tggjcjui-gucjpio 

D 

Ui 

o 

o 

o 

Ui LJ O Li 

LJ LI LJ 

Li L> 



t/' o o 


to c O 




> a 

p-4 

-g-gpgpgPi.^tOO® 

o 

pg 

o 

o 

to 

-• O O p> 

O O Ui 

o o 


K 

^ UJ 

~ z 

J- 

-1 UJ 

^ Z 




C UJ 




«-< 


rg 

rg 

Pi xT Ui gj 

OJ o pg 

xO o 


UJ 

<■ CL 

to 

UJ 

< oc 

CO 




oc 









Fg Fg 

Fg pg 


«/) 

z 

^ UJ 

to 

z 

^ UJ 




LL 













l_/ V) 

Zi _) 


LJ LO 

X -J 
















< 


a. Ol 

<3 

« M 

Q. a 




D 












K 

i- X 

LJ X 

i— 

»- X 

LJ X 




z 

lU PI >T 

u> s4j r- CU O rsj oi 

■*r 

Ui 

gj 

r- 

OJ 

O' LI rg 

Pi xj- UI 

o p“ 



4 UJ 

CL <1 

<1 

«t UJ 

CL <X 




<1 


«p4 ^ 

<u 



«-4 


— • eg pg rg 

pg pg pg 

rg pg 


C 

2 -I 

o. to 

o 

2 -I 

O. to 




£C 












65 



TABLE m. - Concluded. SAMPLE OUTPUT FROM SUBROUTINE DADIFF 


»- • h- • 

CL O QC o 

LU ^ ^ 

X ^ X ^ 


• o o 
o o ►- 
X o o 

Q. GO O • 
QC <N O 


• O O 
O O I- 
X o o 
a rg O • 
cr ^ rg O 


O 


O 



X 

X 





O o u 

O o o 





LU in oc 

UJ in QC 





Ul u. 

UJ u. 





a 

a 





O VI 

to o to 





• X Oj 

• X UJ 





f- m o m 

I- O O UJ 





2 n- oc c3C 

Z in GC QC 





UJ u. o 

UJ U. o 





U UJ 

o UJ 





CL o 

Qtf to O 





UJ o 

UJ O 





a z • 

a z • 





<t o 

< o 

in 




to ^ 

03 ^ 

UJ 






z 




UJ >- 

UJ > 






> ^ 

-1 




Z ^ UJ 

Z <t UJ 

UJ 




o *- :> 

o ^ 

O 




•- U XI 

— O UJ 





1- a 

o 

in 




< 

< to 





□c ni lij 

ot n> UJ 

Ly 




^ O <s. j 

3 ^ 3 

z 




o o e> 

o o -* o 

o 




— ^ z 

^ ^ 2 




1/1 

u- 1 <X 

U- 1 < 





z 

z 




»— 

O 

a r- >o 

to 




u rg 

u rg ^ 

UJ 



LU 



O 






z 



l/^ 



UJ 






a 






UJ 






li- 



<1 



u. 









t- 



Ul 






U 






z 



CJ 



<L 

X 






QC 





tO 







»- 


o 



UJ 

Z 





> 

LU 


'X 



LU 

o 






CL 






UJ 





UJ 

Q. 





m 







O 


u. 



a 

• 





z 

o 


o 









Ul 






UJ 






> 

U- 











UJ 

o 


u 



u 

• 





cc 

<r 


t/5 



UJ . 

in 





QC 












o 



CL 



UJ 






H* 




Z 

z 

o 




o 

a 

LU 



Q. 



QC 




1- 


QC 



X 

< 

< 

o 




QC 

CL 

o 



LJ 







i/j 

in 

LU 



o 



z 




Z 

z 

a 




X 

— X 

r- 




X o 

X o 





o z 

o z 

O 




< < 

< <x 

z 




QC 

DC 

<I 




UJ 03 

LU m 





o 

o »- 

o* 




<t in 

<r in LU 

UJ 


UJ 


a o 

QL o in 

> 


z 


V) 1— I 

V) *— 





►— 

. o 

UJ 


o 


Q to 

CJ VI 2 

u 


LU 


Z =5 

Z =) O 

QC 


o 


< C 

< CO 

OJ 




QC O 

QC O UJ 

a 


in 


in uu < 

in UJ < in 





U K 

O »- 





- 2 in 

“ Z ► 



u 


oj i: <a 

»- UJ z < 





o f- 

3 O UJ 



* 


< •- <I 

< 1- <1 



o 


2 tJ 

2 Uf LJ 



!-■ 


tj 

O W > 



r*t 


UJ ^ to UJ 

O QC QC m lAJ 





2 LU <. to 

X UJ < tn 





C o *" Z •- 

Lli 2 *-• 





tn o O 

to o O 





OJ ^ 2 

1- 3 LU I- 2 





UJ < uc in 

LU <I a to 





in z _j UJ 

tQ Z 3 UJ 





l_r m 3 -J 

O to 3 3 





4 O. Q. 

<l *- 1 — . u. Q. 





tJ 3L 

t- »- Z u X 





<1 <i vu QC «a 

<«! <1 UJ QC < 





O Z ^ Q- in 

CJ Z 3 O- tn 





• 


to 

in 

m 

cn 

o 


• 

m 

cn 

o 

m 

n- 


O 

• 

• 

• 

• 

ft 

• 


O 

• 

• 


ft 

ft 

• 

u 

in 

>y 

O' 

in 

gj 



gj 

CD 

u 

rg 

ou 


m 


o 

r- 

1 

■u 


1 



.a* 

gj 

—» 

1 

>T 

gj 

1 

• 

>T 


p“ 

>r 

rg 

ID 


ft 

CD 

rg 

sr 

ou 

sr 

gj 

o 

• 

« 

• 

• 

ft 

ft 


o 

ft 

ft 

• 

ft 

• 

ft 


'T 

ni 

gj 

>T 

<g- 

LT 


Ul 

tr 

IT 

tr 

tr 

o 

o 


ft- 

OO 

1 

r- 

00 

1 



in 

gj 

1 

in 

n- 

1 

• 

tP 

u 

OJ 

O' 

ig 

ri 



W' 

r » 

<r 

w 

<u 


o 

* 

• 

• 

• 

ft 

ft 


O 

ft 

ft 

ft 

ft 

ft 

ft 

'T 

O 

oo 

r- 

(U 

o 

IT 


iT 

gj 

g- 

n- 

gj 

gj 

U' 


OO 

00 

1 

00 

O' 

1 



gj 

n- 

» 

gj 

r- 

1 

« 

W 

iT 

in 

lU 

tr 

V' 


• 


gj 

CD 

f'- 

o 

PI 

o 

• 

• 

• 

• 

ft 

ft 


U 

ft 

ft 

ft 

ft 

ft 

• 

ri 

Ul 

rg 

I— 

Ul 

n» 

tu 


ni 


tu 

gj 


o 

tXi 


UJ 

O' 

1 

uu 

IT 

1 



r» 

r- 

1 


UJ 

1 

« 

<—» 

ig 



LT 

r- 


• 

>T 

UJ 

g- 

"T 

g 


O 

t 

• 

• 

• 

ft 

• 


u 

ft 

• 

ft 

ft 

ft 

ft 

ig 

Ul 

OI 

UJ 

Ul 

-T 

tn 


»g 

ig 

tn 


ig 


tr 


oo 

O' 


oo 

cr 

1 



r- 

n- 

1 

r- 

00 

' 

• 

o 

fl» 

ni 

o 

gj 

<*j 


ft 

'T 

PI 

tr 

>r 

gj 

ig 

O 

• 

• 

• 

• 

ft 

• 


o 

t 

• 

ft 

• 

ft 

• 


'T 

m 

LT 

IT 

in 




t-t 

o 

ou 


rg 



00 

O' 

1 

00 

O' 

1 



P'- 

oo 

1 

f 

00 


• 

r- 

u 

rg 

r* 

gj 

LT 


ft 

VT 

tr 

Ul 

g* 

gj 

m 

o 

• 

• 

% 

• 

ft 

t 


o 

« 

ft 

• 

• 

• 

• 

o 

m 

m 

O' 

m 

'T 

O 


o 


O' 

00 



O 


GO 

O' 

1 

oo 

O' 




n- 

r- 

» 

n- 

00 

1 

• 


r- 

o 

r- 

O' 

rg 


ft 


n* 

gj 

-g 

cn 

X 

o 

• 

i 

• 

ft 

• 

ft 


o 

ft 

• 

ft 

ft 

ft 

• 

O' 

rg 

rg 

o 

rg 


rg 


O' 

o 

O' 

O' 

o 




00 

O' 

j-4 

1 

00 

O' 

1 



r>. 

n- 

1 

r- 

X 

1 

• 

rg 

O' 

r- 

rg 

'0 

m 


• 


rg 

o 


<n 

r- 

o 

• 

• 

• 

ft 

ft 

• 


o 

ft 

ft 

• 

ft 

ft 

ft 

oo 

O 

00 

00 

o 

o 

O 


00 

00 

g) 

00 

00 

p- 

cn 


00 

00 

1 

03 

O' 

m4 

\ 



g3 

n- 

i 

>o 

n- 

1 

• 

rg 

o 

ij- 

rg 

rg 

o 


• 

n- 

gj 

O' 

pu 

CM 

in 

o 

• 

• 

• 

• 

• 

• 


o 


• 

• 

t 

• 

• 

r-- 

O' 

00 

O' 

O' 


rg 


n- 

g) 

g? 

cn 

gj 

cn 

rg 


r- 

CO 

1 


O' 




•£ 

n- 

1 

o 


1 

• 

co 

O' 

•-I 

00 

O' 



• 

O' 

O' 

o 

cn 

cn 


o 

• 

• 

• 

• 

• 

• 


o 

• 

• 


• 


• 

o 

o 

00 

CO 

o 




lO 



O' 

n- 

cn 

rg 


00 

00 

1 

00 

O' 

1 



g> 

n> 

1 

<3 

n» 

•—4 

1 

• 


rg 

'O 

ft- 

in 

00 


• 

r-l 

O' 

00 

<.g 

CM 


o 

• 

• 

• 

• 

• 

• 


o 

• 

• 

• 

•. 

• 

• 

in 

rg 

LT 

o 

rg 

rg 

in 


u> 

cn 

gj 

r- 

in 

O 

.H 


03 

05 

1 

CD 

O' 

i 



gD 

n- 

t 

gD 

X 

t 

• 

u 

m 


u 

o 



« 

n- 

ij- 

00 

n- 

CM 

tn 

o 

• 

• 

• 

• 

• 

• 


o 

• 

• 

• 

• 

• 

• 


m 

O' 

>o 

rri 

fO 

o 



00 

gj 


00 

"J 

-g 


OJ 

00 

I 

ou 

O' 

1 



g5 

p“ 

l 

gj 

X 

1 

• 

in 

m 

00 

m 

00 

eg 


• 

'»• 


cn 

iT 

rg 

X 

O 

• 

• 

• 

• 

• 

• 


o 

• 

• 

• 

• 

• 

• 

m 

O' 

tn 

u\ 

IT 

00 

O' 


m 

•4- 


f* 

-T 

in 

LU 


r* 

00 

! 


oo 

1 

LU 

z 


o 

r* 

1 

gj 

r- 

1 

• 

r- 


< 

r- 

.<r 

r~ 

• 

cn 

o 

r* 

PI 

<r 


o 

• 

• 

• 

• 

f 

• 


u 

• 

• 

• 

• 

• 

• 

IN 


o. 

Ul 

'T 

fn 

ou 

LU 

ig 

ID 

u> 

g> 

CD 

X 

o 


r- 

ou 

1 

ft. 

CD 

1 

o 


in 

gj 

I 

Ul 

g) 
















I 








v; 








• 

sO 

m 

r- 

gj 

gj 

LJ 


• 

o 

in 

in 

O 

in 

in 

o 

• 

• 

• 

• 

• 

f 

1- 

O 

t 

• 

• 

• 

» 

• 

•u 

rg 

cr 

o 

rg 

rg 

o 

U- 



O' 

00 


CM 




'Ll 

1 

gj 

p- 




iT 

la* 

1 


in 








* 

tJ 







1 

















LU 

OJ 


Y— 

1— 


«u 


OJ 

OJ 


r— 

p- 



o 

u 


3 





u 

LJ 


-J 

-1 



2 

z 

cc 

Z 

Z 

h- 



z 

z 

03 

Z 

Z 

»- 


O. 

o. 

bJ 

o. 

o. 

-J 



a. 

Q. 

l-l 

o. 

o. 

_i 

lU 



z 



z 


LU 



Z 



z 

o 

o 

UJ 

a 

c 

LU 

Q. 



o 

UJ 

Q. 

o 

LU 

a 

o 

3 

z 


X 

z 



o 

X 

z 


X 

z 


z 

h- 

O 



o 

< 


z 

»- 

o 


t- 

c 

<i 

<4 



i- 



f- 





t- 



f- 


K 

h- 


»- 

»- 




►- 

K 

3 

*- 

K 

-J 


LU 

UJ 

‘U 

OJ 

OJ 

UJ 



Ui 

UJ 

OJ 

.'J 

OJ 

LU 


in 

in 

u 

tn 

in 

CJ 



to 

to 

a 

in 

to 

u 


66 


TABLE IV. - LII^ING OF TYPICAL SET OF WORKING DATA 

^ATl^}^JnL J^tkCNAljTICS AND SPACE AL M 1 M ST ft A T I GN 
Lc¥,IS ftFStAPiCH CENTEk 
Pkl'iFULSItk SYSTFr^S ACulSTICS bKANLH 
SAPPIF Nf;ISF RATA 


1 00 

1 HLO • C 

75 

.0 2/ 

16 3 








1 ^ J . s 

6. 1 

- 1 8.y 

- lb._> 

-15.2 

-1 j).0 

-13.3 

-l4.4 

-15.4 

-14.6 

-15.1 

-15.3 



-15.7 

-15.S 

-14.7 

-14. 1 

-13.6 

-14.2 

-5.7 

-11.9 

-10.0 

-5.2 



-8. 1 

-0.5 

-5*3 

-4.7 

-4.6 

-2.8 

0. 




10. 0 

10. C 

20. 0 

30. C 

40. G 

5J.0 

63.0 

7 j. 0 

8 3.0 

93.0 

10 3.3 

1 13. 3 

IPO.O 

i HG. C 

140.0 

1 50. C 

16C.C 








1 

•30 

-P . 1 

- 5 . C 

-c • 2 

-5.2 

-2.5 

-3. 5 

-3.5 

-2.2 

-4.7 

-2.4 



-1.5 

-C.5 

2.0 

3.3 

6.8 

6.8 





y 

6 3 

-7.4 

— 6.1 

-t.b 

-7. S 

-6.7 

-6. 1 

-5.5 

-5.6 

-5.4 

-4.9 



-2.4 

-0 . ^ 

2 .4 

*♦ • 4 

7.3 

E.3 





n 

rtO 

-9.5 

-y. 0 

-10.8 

-10. 7 

- 10. 0 

-5.5 

-5.7 

— 8.0 

-6.3 

-4. 5 



-2.0 

— 0.8 

2.2 

4 . 3 

8.2 

6.5 






100 

-8.3 

- /.8 

-7.8 

-6.4 

-0.1 

“6.6 

-6.4 

- J. 4 

-5.1 

-2. 3 



-1 .a 

0. 5 

2.6 

4. S 

7.4 

6.6 





5 

125 

-6.f 

-7.2 

- 7.6 

-7.1 

— 6.6 

-5. 1 

-4.6 

-3.4 

-2.6 

-1.4 



-0.2 

1.4 

2.4 

t. 3 

6.5 

3.8 





o 

160 

-5.6 

-4.0 

— 4.6 

-4.3 

-3.1 

- 2 . a 

-2.5 

-2.3 

-1.3 

-0.8 



-0.5 

c. y 

2.2 

4.C 

5.5 

2.4 





/ 

POt) 

-H-S 

-4.0 

-4.2 

4 

-4.5 

-5.0 

-4.5 

-4.5 

-3.2 

-2.4 



-0.5 

1.2 

3.6 

4. £ 

0.3 

2.2 





8 

PSO 

-6.1 

-5.6 

-5.8 

-5.6 

-5.8 

-5. 3 

-4.8 

-3.6 

-2.6 

-1.1 



0.4 

2.0 

5.2 

4. 6 

5.6 

2. 5 





y 

31 5 

-5.y 

-5.6 

-4.3 

-3.0 

-4 . 4 

-3. 5 

-3.8 

-2.9 

-i.6 

-1.1 



■3.2 

1. 7 

3.6 

4.4 

4.6 

1.3 





10 

'♦00 

-6.2 

-5.2 

-4.7 

-3.7 

-4.2 

-2.5 

-3.9 

-3.4 

-1.9 

-0.9 



0.4 

2.2 

3.6 

4.4 

4. 1 

-0.2 





1 1 

50 0 

-3.2 

-2.1 

-2.5 

-2.4 

- 1.6 

-3. 1 

-3.4 

-2.4 

-1.4 

-3.4 



0.4 

1.7 

3.3 

3. 6 

3.3 

- 1.0 





12 

63 0 

-4.4 

-3.3 

-2.3 

-0.8 

-1.6 

-2. 5 

-2.1 

-1.6 

-0.6 

-0.1 



O.S 

1.6 

3.0 

2. 7 

1.7 

-2.2 





13 

800 

-0.4 

- 1.2 

-1.7 

2.3 

0.0 

-3.0 

-2.2 

-0. 8 

-1.5 

-0.2 



0.2 

0. 5 

2.5 

1.8 

0.8 

-2.5 





14 

1000 

-0.8 

-1.2 

ii • 4 

-0.3 

2.7 

-1.4 

-1.4 

— 2*8 

-Z* i 

-1.3 



-0. 1 

1 .0 

2.2 

2. 1 

0.6 

-3.2 





15 

1P50 

-0.5 

1.0 

1 .4 

2. 5 

0.8 

-1.0 

-l.l 

-1.8 

--d.O 

-1.0 



C.7 

0.3 

1.0 

0. 5 

-0.3 

-3.5 





16 

1600 

0.1 

0.6 

L • ^ 

0.4 

-0.4 

- 1.3 

-2.1 

-2.5 

-1.5 

-0.1 



1 .0 

2.2 

3.0 

-0. C 

-1.3 

-4. 7 





1 7 

POOO 

2 .4 

2 . 5 

3.5 

4.5 

2.Z 

0.3 

-2.3 

-5. J 

-2.2 

-3.8 



0.7 

-C. 2 

-0. d 

— 4.8 

-6.7 

-5.2 





18 

P‘300 

0.3 

1 . 3 

1.6 

1 . 6 

0*3 

-1.2 

-3.2 

-2. 7 

-1.2 

-0.7 



1 .3 

/ . 4 

1.8 

-0. / 

-2.7 

-6.6 





ly 

i 1 5J 

-2.2 

-0.6 

J. 1 

u. y 

-1.1 

-2.4 

-3.6 

-2.9 

-0.7 

0.1 



1 .6 

3.6 

3. 1 

-1. i 

-3.4 

— 0.8 





PO 

4000 

- 3.2 

-1.6 

-1 .0 

0. 0 

-l.b 

-4.3 

-3.5 

-4.3 


1.5 



1 .7 

2.3 

3. C 

0*5 

-3.6 

-6.3 





? 1 

5000 

-2 . 1 

-0.6 

-G.6 

0.4 

— 0 . 8 

-3*0 

-3.5 

-3. 1 

-l.l 

-0. 1 



C.7 

7 

4. 1 

i. V 

- 1.0 

-6. 1 





pp 

6 30 j 

-3. i 

-1.6 

J. 1 

2. o 

-2.1 

-3. 7 

-3.9 

-3.7 

1.1 

0.5 



1 .5 

2.0 

2.6 

-0.2 

-3. 1 

-7.7 





PH 

8000 

-*♦ • 1 

— 2 . j 

-1.5 

U. 3 

-2.5 

-4. 1 

-4.0 

-i. 1 

-0.3 

2.4 



1 .y 

2.5 

3.2 

3. 0 

-3-3 

— S • 1 






10000 

— 3.4 

-2. C 

-1.2 

0 • o 

-2*5 

-4.2 

-4.2 

-4.7 

-0.9 

0.8 



1 .8 

3.5 

3.5 

1*0 

-l.b 

-7. e 





✓ 5 

12 500 

-2.2 

-1.4 

-C.7 

1. 1 

-1.4 

-4.2 

-4. 3 

-3.5 

-1.2 

0.3 



1 . 3 

2.^. 

3.0 

L. 3 

- i .4 

-7.6 





P6 

I6J );) 

-3.2 

-1.5 

w • 0 

1 . 3 

- 1.5 

— 4.4 

-4.4 

-4.2 

-0.5 

0.8 



1 .3 

3.4 

3.5 

O 

-2.2 

- 7.5 





P7 

PiJOili) 

-2 . i 

-1 .c 

Li • C 

0. 1 

-1.4 

-4.0 

-2.4 

-4.4 

- 1.4 

0.4 



1 .o 

3.2 

3.5 

1. 1 

-1.7 

-7.0 






67 




Figure 1. -Major elements of data handling system. 









Figure 2. - Geometry of enclosing sphere for far^field acoustic meas- 
urements, showing elemental areas without ground plane. 
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